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PONTE A LOS MANDOS 
DE UN SPECTKUM. 

Ahora tu microordenador SPECTRUM es, aún, MAS 
con sus nuevos refuerzos: Microdnve. Interface 1, Interface 2.. 

¡Por fin podrás grabar y leer información de manera casi instantánea! 

¡O disfrutar a lo grande con la más extensa variedad de programas 
tanto educativos como de mero entretenimiento!. 

Y sobre todo vas a tener la posibilidad de aprender a programar 
(que siempre te será muy útil) de una manera fácil y divertida. 

No dejes pasar esta ocasión, 

ahora que puedes obtener mayor rendimiento de tu SPECTRUM 

ESTE VERANO PONTE A LOS MANDOS DE UN SPECTRUM 











Durante casi un año. quienes hacemos la revista ZX hemos 
podido comprobar la gran ilusión de todos los usuarios del 
Spectrum. su interés en seguir avanzando en el conocimiento de 
este ordenador. Para ellos nace hoy Todospcctrum, una revista 
dedicada exclusivamente a quienes, habiendo ya adquirido sufi¬ 
cientes conocimientos de la técnica de programación, quieres ir 
más allá. Esperamos que esta nueva revista merezca de sus lectores 
la misma calurosa acogida que ha recibido ZX. Y. desde luego, 
estas páginas están abiertas a la colaboración de todos. 


4 COMO USAR EL MICRODR1 VE. Una completa guia 
para entrar al misterioso mundo del microdrive y de! inler- 
face 1. 

9 PROGRAMACION A FONDO. El programa comentado 
nos ayudará a resolver cualquier duda que se refiera a 
los gráficos de funciones. 

12 BASICARE, o cómo convertir su Spectrum en algo más 
que un ordenador personal. 

1 6 ENTRADA DE DATOS MEDIANTE MASCARAS; Mejore 
su entrada de datos con esta aplicación que le ofrecemos* 

19 CODIGO MAQUINA* Despícnese en código máquina con 
su ordenador Spectrum. 

20 VARI ABLES DEL SISTEMA. Echéle un peek a los pokes 
más importantes del sistema. 

30 PROTECCION DEL SOFTWARE* Un problema de actua¬ 
lidad tratando exhaustivamente por ambas partes, usuarios 
y vendedores de software. 

34 SINTONICE SU SPECTRUM* Consejos prácticos para 
ajustar correctamente su ordenador al televisor. 

36 COMENTARIOS* Una sección en la que regularmente pa¬ 
saremos revista a las novedades en el mercado de software 
para el Spectrum. 

38 PROGRAMAS* Nueve programas para que pueda apren¬ 
der y divertirse durante horas y días* 

66 GUSANEZ* Una mascota para los usuarios del Spectrum 
nace con esta revista. 
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El dibujo du lu pnrlHtki ha sido realizado coneí 
programa Arlist por Fernando lia reía, un has a 
a un disuño du Alburio Fregona!. 
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C on el atractivo y ambiguo 
nombrede microdrive, Sinclair 
¡an/ó definitiva mente al 111 er- 
cudo una unidad de aImace- 
na miento de datos para el 
Speetrum a finales dd año pasado. 
Las previsiones de ventas quedaban 
claras en el anuncio de la famosa 
empresa en Inglaterra; "Se entrega¬ 
rán de acuerdo a la fecha de compra 
de los Spectrums y no más de dos 
unidades por persona"* Aquí, como 
siempre, tuvimos que esperar más. \ 
finales de mayo de este año salía 
definitivamente a la venta a un precio 
poco asequible para los jóvenes usua¬ 
rios del Speetrum. 

Para poder utilizarlo, como ocurre 
con los joysück y cualquier periférico 
en general, necesita de un interface. 
Sinclair creó especialmente el interfti¬ 
ce I para este propósito, pero no es 
ésta su única característica. Conviene, 
pues, analizar por separado ambos 
productos que podrá igualmente 
adquirir por separado (lógicamente 
sólo necesitará un ínter face pero pue¬ 
de disponer de varios microdrives). 


EL MICRODRIVE 

Cada microdrive puede albergar 
una pequeña cinta de las denomina¬ 
das "sin fin". La capacidad de esta 
cinta es de 100 K sin formatear* que 
se quedan aproximadamente en 80 
una vez formateada (operación que 
requiere treinta segundos). El tiempo 
medio de acceso es de 3,5 segundos. 
El número máximo de unidades que 
se pueden conectar es de ocho, por lo 
que se puede disponer de algo más de 
640 K accesibles de forma inmediata, 
pero no simultánea. Ai igual que con 


d cassette, puede intercambiar cintas 
para disponer de mayores capaci¬ 
dades. 

Las ventajas respecto al cassette 
son claras: mayor capacidad y rapi¬ 
dez en el acceso a la información. 
Pero dista mucho de tener las posibi¬ 
lidades de un disco. Permite trabajar 
con archivos de dalos, pero única¬ 
mente dd tipo secuencia!: no existen 
registros. En suma, no olvide que es 
una cinta a pesar de su nombre. 

Para grabar programas es ideal por 
su rápida grabación y localización. 
También existe la posibilidad de pedir 
d catálogo de los programas o archi¬ 
vos contenidos en una cinta, indican- 


FICHA 

() MICRODRIVE 
— Número máximo de unidades a 
conectar simultáneamente, 8. 

— Tiempo medio de acceso a la 
información, 3,5 seg. 

— Precio, 19,500 ptas. 

0 CINTA 

— Longitud, 15 metros, 

— Capacidad, 85 K. 

— Número máximo de archivos, 
50. 

— Precio, L650 ptas, 

() INTER FACE I 

— Salida expansión. 

— Salida para red de área local 
(hasta 64 Spectrurns). 

— Salida RS232. 

— Controlador microdrive (hasta 

8 ). 

— Precio: 19,500 ptas. 


do el nombre de lacinia, información 
contenida en ella y espacio disponible 
en K. Para trabajar con archivos de 
datos es igualmente útil, siempre que 
la grabación se realice en bloque, es 
decir, de una sola vez: de lo contrario 
perderá mucho tiempo. Ello es debi¬ 
do a que no se puede grabar sobre un 
archivo ya creado, por lo que toda 
actualización de datos implica la 
creación de un nuevo archivo para 
pasar los datos antiguos, añadir los 
nuevos y eliminar el anterior archivo. 
Como se puede ver, sustancialmente 
distinto al funcionamiento de un dis¬ 
co. Cada cinta puede almacenar 50 
archivos como máximo. 

El motor de arrastre de ¡a cinta 
sólo entra en funcionamiento cuando 
se hace uso de ella, indicándolo con el 
encendido de un diodo LED* De esta 
forma se evitan problemas de calen¬ 
tamiento* La cinta sólo se podrá 
introducir o extraer cuando el diodo 
este apagado, recomendándose colo¬ 
caría una vez conectado d Speetrum 
a la alimentación y retirándola antes 
de su desconexión de la red. 

No obstante, es un gran avance 
comparado con d cassette y a buen 
precio comparado con los discos, 
clave de todos los productos Sinclair 
(un microdrive cuesta 19,500 pesetas y 
el interface otras 19,500 pesetas). El 
precio de una unidad de discos no 
baja de 80,000 pesetas. Sin embargo, 
las cintas resultan demasiado caras: 
Ij65Ü frente a las 50Q pesetas* de los 
convencionales discos de cinco pul¬ 
gadas, amén de su enorme desgaste 
que le obligará a constantes copias de 
sus datos para evitar su pérdida. 
Aunque se habla de 5000 accesos 
mínimos, la práctica ha demostrado 
una duración menor. 











Sinclair ha prometido lanzar soft¬ 
ware mili/ando esta unidad de alma¬ 
cenamiento . especialmente aplicacio¬ 
nes profesionales. Si pensamos que el 
nuevo ordenador de Sinclair (QL o 
quantum leap) utiliza este mismo sis¬ 
tema es fácil esperar desarrollos fu¬ 
turos. 


INTER FACE 1 

El diseño del interface I es particu¬ 
larmente atractivo al ajustar perfec¬ 
tamente en la ranura de expansión y 
elevar el ángulo del tediado para 
trabajar más cómodamente. Dos tor¬ 
nillos en la parte inferior permiten 
una segura fijación. Por la parte 
posterior dispone de una ranura de 
expansión, red local > salida RS232. 
En el lado izquierdo encontramos un 


nuevo pon para el control de los 
microdrives. 

La ranura de expansión permite la 
adición de otros periféricosf joystick 
impresoras..,). Con la salida RS232 
ya es posible la conexión directa a 
todos los periféricos que utilicen este 
sistema, especialmente las impreso¬ 
ras, Pero lo más destacable son los 
dos conectares situados a la altura del 
EAR y MIC del Spcctrum, que hacen 
posible que esté conectado con otros 
Spectrums (Local Arca NetWorkf has¬ 
ta un total de 64 y una distancia 
máxima de 100 metros, pudiéndose 
intercambiar información o acceder a 
determinadas unidades de almace¬ 
na micnto (microdrives). 

A diferencia de los tradicionales 
sistemas de redes, ésta no necesita que 
todos sus componentes formen un 
circulo cerrado uniéndose el primero 
con el último. Es más, las conexiones 


de entrada del primero y de salida del 
último han de estar necesariamente 
libres. La única limitación estriba en 
que ningún ordenador integrado a la 
red puede desconectarse. Para poder 
utilizar la red, cada ordenador ha de 
tener un número de identificación, 
requiriéndose la interacción de los 
participantes (uno sólo no puede 
mandar nada si el otro no prepara la 
recepción). Es decir; que los partici¬ 
pantes han de estar cara a cara. Para 
enviar un programa se utilizarían las 
instrucciones 
FORMAT ”rT;l 
SAVE * “n";2 

El otro ha de preparar la entrada 
de la siguiente forma: 

FORMAT fct n":2 
LOAD * tL iTM 

donde FORMAT indica el número de 
identificación y LOAD, la operación 
de carga del ordenador especificado. 



- 









Este concepto de redes, de canden¬ 
te actualidad para los microordena¬ 
dores, no parece ser de gran utilidad 
para el que nos ocupa. Suponemos que 
está dentro de la política de Sinclair 
de “dejarse sorprender", lanzando 
novedades al mercado y dejándole a 
éste que estudie su utilidad. Algunos 
ya ven en la red la posibilidad de 
utilizarla en las aulas, pero sus com¬ 
plicadas instrucciones de manejo no 
lo hace muy aconsejable. 


INSTRUCCIONES DE MANEJO 

Los comandos de referencia a! 
microdrive están incluidas en el Spee- 
trum. Algunas son las ya utilizadas 
con el cassette (LOAD, SAVE, VE- 
RIFY y MERGE), aunque con pe¬ 
queños matices. Otras son totalmente 
nuevas (CAT, FORMAT, ERASE...). 
En general, no resulta nada sencilla la 
utilización de los nuevos comandos, 
si bien en muchos casos se puede 
agilizar su uso mediante rutinas en las 
que lo único que varíe sea el microdrive 
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a utilizar y el nombie del archivo con 
el que se va a trabajar. 

Veamos de forma resumida los 
nuevos comandos y la forma de 
utilizarlos, lo cual da una buena idea 
de las posibilidades reales del micro- 
dr i ve . 

FORMAT "m";n; "Nombre". For¬ 
matea una cinta virgen para poder ser 
utilizada o una va utilizada para su 
reutilización (borrando toda la infor¬ 
maciónJ. 

FORMA T "/TV. v. Identifica e¡ Spec- 
trum para su uso en la red. 

FORMA T '7"x Identifica la velo¬ 
cidad de transmisión de datos en la red: 
50. ¡10. 300. 600 r 1200. 2400. 4800. 
9600, 19200. 

SAFE “Nombre**. Alma¬ 

cena un programa. Se puede añadir 
LINE XXXX para indicar, al igual 
que en el cassette la línea de comien¬ 
zo. 


VERIFY “Nombre". Ve¬ 

rifica la perfecta grabación. 

LOAD *“irT:n; “Nombre". Carga 
el programa. 

ERASE “m”;n;“Nombre". Elimi¬ 
na un programa o archivo. 

MERGE “Nombre*\ 

Mezcla un programa de cinta con el 
que se encuentra en memoria. 

CAT n. Catálogo de programas y 
archivos contenidos en la cinta. 

OPEN x,“m'\n. “Nombre”. Abre l 
un archivo de datos, utilizando el 
buffer X (Cualquiera del 0 al 15). 

PRINT # x. Grabación de datos en el 
archivo especificado por el buffer X. 

INPLJT # x. Lectura de datos del 
archivo especificado por el buffer X, 

CLOSE tí x. Cierra el archivo especi¬ 
ficado por buffer X. 

“ni" Indicativo de operación con 
microdrive. 

n Microdrive con que se trabaja 

0 a 8), 
x Buffer. 


INTERFACE1. VARIABLES DEL SISTEMA 


En el mapa de memoria del Spec- 
trrnn ya estaba previsto el entonces 
futuro INTERFACE 1 v MICRQ- 
DRIVES. 

Los 58 bytes que ahora se incorpo¬ 
ran al mapa de memoria permiten las 
siguientes funciones; 

DECIMAL H EX ADE NOMBRE I-UNCION 


23734 5CB6 FLAGS3 Bit 0. Acti¬ 
vado utilizando elmodo extendido. 
Bit 1. Activado con CLEAR tí 
Bit 2. Activado cuando se modifica 

ERRSP. 

Bit 3. Activado con la Red Local. 
Bit 4. Activado con LOAD. 

Bit 5. Activado con SAVE. 

Bit 6. Activado con MERGE. 

Bit 7. Activado con VERIFY. 


23747 5CC3 BAUD Velocidad trans¬ 
iere nc i a de datos en baudiüs. 

B A U D=( 35(XKXX)/( 26*código))—2 

23749 5CC5 NTSTAT Código para 
la red local (1-64). 


23750 5CC6 IOBORD Color de 
BORDER durante operaciones 
inpui/outpui. 

23751 5CC7 SER-FL Control 
RS232. El primer byte es un flag 

y el segundo un carácter. 


Fichero de 
presentación visual 

Atributos 

Memoria 
intermedia 
de la impresora 

Variables 

1 del sistema 






16384 22529 23296 23552 23734 


Mapas de 
Microdrive 

información 
para canales 

80n 

Programa 
en BASIC 

1 Variables 

Bfflh 

Comando o línea de 
programa que se está 
corrigiendo 

NL 







83n 


23734 


CHANS 


PROG 


VARS 


E_UNE 


WORKSP 


23735 5CB7 VECTOR Expansión 
intérprete, normalmente 01F0. 


23737 5CB9 SBRT Acceso rutinas 
ROM 16 K de ¡a forma: 


Entrada 
de datos 

NL 

Especio 

tareas 

eventuales 

Pile del 
calcu¬ 
lador 1 

Reserva 

Pila de 
máquina 

Pila de 
GOSUB 

? 

3En 

Gráficas definidos 
par el usuario 

LD HL, valor 

CALL 

”1 

1 1 




1 

ílSi i 


LD (5CBAH), HL wqrksp stksot stkend ¡ b ram uog p_ramt 


RET 












































"Nombre" Nombre de la cinta, pro¬ 
grama o archivo. 

ERRORES DEL INTER FACE 

Cuando salió al mercado el Spec- 
lmni ya iban incorporados los co¬ 
mandos a utilizar con el hita-face 1. 
lama anticipación, necesaria si se 
tiene en enema la estructura de es le 
ordenador, puede originar pequeños 
problemas en el uso de los comandos, 
pudiéndose encontrar con un funcio¬ 
namiento anómalo. 

Veamos cuáles pueden ser estos 
pequeños fallos: 

I. ERRORES DE SINTAXIS 

Hay una serie de comandos que en 
principio son aceptados, pero no ob- 
tendrá una respuesta adecuada al 
ordenador. Veamos estos comandos: 

ERASE "nombre Ej.: ERASE 
•PRUEBAS 

MOVE “nombre . “nombre . Ej.: 
MOVE “TI . “T2“. 

FORMAT “nombre . E¡.: FOR¬ 
MA! “PRUEBAS . 

OAT. Ej.: CA I (sin número). 


2. COMANDOS DI COLOR 

Utilizar canales distintos del "K“. 

"S . "P puede al celar a los coman¬ 
dos de color con los que se trabaje 
posteriormente. El problema reside 
en las operaciones de output del 
interface que alteran el carácter per¬ 
manente de tus comandos de color. 

3. COMANDO BREAR 

Detener la ejecución de un pro¬ 
grama no es (a n sencillo con el infer¬ 
íale. Si está trabajando con el mkra- 
i/rivc o con la salida RS232. deberá 
presionar CAPS SHIFT \ la barra 
espaeiadora simultáneamente. Si ope¬ 
ra con la red local y con la entrada 
RS232 bastará con presionar i a tecla 
espadadora. 

4. OPERACIONES CON 
CISSl.TTi: 

Si se hace una incorrecta referencia 
a luí archivo fpor ejemplo, más de 
diez caracteres de longitud),en vez de 
aparecer el mensaje de error INV'A- 
EID El LENA ME se quedará sor¬ 
prendido cuando aparezca en panta¬ 
lla NONSLNSE IN BASIC. 


23753 5CC9 SECTOR Control Mi- 
crodríve. Sectores desde FFH a 
04FBH. 

23755 5CCB CHADD- Almacena¬ 
miento temporal para CHADD 
mientras se chequea la sintaxis 
de las líneas. 

23757 5CCD NTRESP Código res¬ 
puesta de la red local. 

23758 5CCE NTDEST Inicio de! 
buffet de la red, incluyéndose el 
código de Spectrum. 

23759 5CCF NSTSRCE Código ori¬ 
gen de la red local. 

2376U 5CDO NTNUMB Código 
bloque de la red local (0-65535). 

23762 5CD2 NTTYPE Control red 
local (0=datos. l=Fin de arehivu). 

23763 5CD3 NTLEN Longitud blo¬ 
que de datos red (0-255). 

23764 5CD4 NTDCS Chequeo blo¬ 
que de datos red. 

23 7 65 5CD5 NTHCS Chequeo red 
(NTDEST-NTDCS). 


23766 5CD6 D-STRI Primer byte 
díreccíonamiento. Control chive. 
código microdrive 

(1-8), código red o código velocidad 

transmisión datos en baudios. 

23768 5CD8 S-STRI Buffer (0-15) 

23769 5CD9 L—STRI Tipo comuni¬ 
cación: ‘M . *N\ ‘T o ’B 

23770 5CDA N-STRI Longitud ar¬ 
chivo. 

23772 5CDC T--STR1 Comienza ar¬ 
chivo. 

23774 5CDE D--STR2 Segundo byte 
direccionamiento. Comandos MO- 
VE y LOAD. 

23782 5CD6 HD—OO Direccíona- 
miento comandos SAVE. LOAD 
VERIFY y MERGE. 

Tipo datos: 0 — programa. 

1 — tabla numérica. 

2 — tabla alfa nu¬ 

mérica. 

3 — bytes. 

23783 5CE7 HD—OB Longitud datos 
(0-65535) 


5. CODIGO MAQUINA 

Aunque la mayor parte de la ROM 
es correcto hav dos pequeños fallos: 
READ--N no puede utilizarse al si¬ 
tuarse el flag al final de la rutina y el 
' código 2B es el mismo que 22, debido 
a una incorrecta entrada en la tabla 
de bifurcación f Dirección XI9C9H). 


6. LA SALIDA RS232 

Si se utiliza el canal "L pitra el 
lisiado de programas, se imprimirá 
un doble espacio entre las palabras 
clave. (THEN PR1NT aparecerá co¬ 
mo THLN PRINT). 



Con unas dimensiones 
de 45 X >5 X 7 mm, el pequeño cartucho 
dd microdrive contiene una banda 
continua de 15 m. cuya anchura 
es 1.9 mm. y puede llegar a 
almacenar entre 85 y 100 Khytes. 


J23785 5CE9 HD-OD Comienzo da- 
tos. (0-65535) 

23787 5CDB HD-OF Longitud pro 
grama. (0-65535) 

23789 5CED HD-U Línea de co¬ 
mienzo (ejecución automática). 

23791 5CLF COPIES Número de 
copias realizadas con SAVE. I 
después de SAVE. 

23792 Comienzo ma¬ 
pas microdrive. 





?. EL COMANDO CLOSE « 

St se 'interrumpe un progriimu um 
el comando BREAK inicniras csiá 

actuando el comando CLOSI .*?. no se 
recuperará la memoria imn/áua ¡«o 
el hutía'. Ello podría originar una 
importante acumulación de memoria 
sin utilizar. 

KI D LOCAL O LAN (Local Area 
NetWork) 

La posibilidad de conectar M Spec- 
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trinos simultáneamente e% una de las 
novedades más imparlantes, pero sa¬ 
bré todo más llamativas del tnrerfaiv 

1 . 

Cuando se trabaja con la red. se 
abre un Imflvr en el área designada 
como CHÁNS en el manual, ñor- 
normalmente di rece junado por el re¬ 
gistro IX. l a capacidad es de 276 
bvies \ su contenido es el siguiente: 

0 Dirección 8. 

2 Dirección 9. 

4 "N\ 

5 Dirección de ¡a stibrutina de 
salida en ROM. 

7 Dirección de la subrutina de 
entrada en ROM. 

9 Dirección 276. 

i 1 NCIKIS Código de destino en 
la red. 



12 NCSELF Código del Spec- 
trum en la red. 

13 NCNIJMB Código de bloque. 

15 C ! Y PE lipo de datos. 

16 NCOBL Número de bytes del 
bloque de datos. 

17 NCDCS Chequeo datos 

18 NCHC S Chequeo datos. 

(9 NCBL Dirección último ca¬ 
rácter en el hujier. 

20 NCB Número de bytes del 
buffvr. 

21 Hufía de 225 bytes. 


RESUMIENDO 

Bajo el nombre de mkrodrive pue¬ 
de disponer de un sistema de almace¬ 
namiento intermedio en prestaciones 
y calidad a tas cintas de cassette por 
un lado y los discos por otro. Además 
con la obligada colaboración del !n~ 
terface I nuestro ordenador se hace 
más interesante. Pudiéndose conectar 
hasta 64 Spectrums. el Inieríace I nos 
permite acceder a cualquier lipo de 
información que sea tratada por cual¬ 
quier ordenador conectado a la red. 
Esta es sólo una de las múltiples 
ventajas del interface* ya que seguida¬ 
mente tenemos una conexión RS232 
que permite conectar periféricos que 
utilicen este tipo de conexión espe¬ 
cialmente impresoras de más calidad 
que la pequeña ZX Primer. Final¬ 
mente. a la izquierda del Interlace 
tenemos el pon que controla los 
microdrives* con la particularidad de 
que nos permite tener acceso hasta 8 
microdrives con una capacidad total 
de hasta 6KÍ)k. lo que nos permite 
convertir a nuestro Spectrum en algo 
más que un ordenador personal. 

Las ventajas respecto al clásico 
cassette son claras y permiten ya 
hablar de un sistema de almacena¬ 
miento rápido, flexible* suficiente y 
de bajo precio para este ordenador. 
Como contrapartida* nos encontra¬ 
mos con instrucciones de manejo 
excesivamente complicadas, un des¬ 
gaste excesivo de la cabeza de lectu¬ 
ra/escritura debido a la acción abra¬ 
siva de la cinta y un precio elevado 
del cartucho y unas prestaciones muy 
inferiores a las de una unidad de 
discos convencional. 














PROGRAMACION 

AFONDO 


E n esta sección nos proponemos cada mes 
analizar un programa en profundidad. Partiendo 
siempre de un problema determinado, se analizara 
forma en que puede resolverse por el ordenador* 
Junto a) listado del programa se incluirá el organigrama \ 
su representación en pantalla. 

En esta ocasión vamos a ^profundizar" en el análisis 
de la representación gráfica de funciones. Un tema que 
esperamos sea del agrado de muchos, al poder llegar a 
representar cualquier función. 


Problema 


El objetivo es construir un programa que realíce la 
representación gráfica de varias funciones y=f(x), en el 
primer cuadrante (Xc Y positivas) mostrando títulos y 
puntos de los ejes. 

Distintas funciones requieren un INPUT o una linca 
que se cambie para cada función. La representación de 
títulos implica definir una área de grafieación inferior al 
tamaño de la pantalla. Luego tendremos tres partes 
diferenciadas: 


I ni ció 


±. 


Inícializar 

contadores 



/ Entrada 
* función 


Máximos 
/y mínimos 

eje X 


Calculo 

es cal 0 

eje "x" 


Calculo 


valores ''y * 


en tabla 


Mox irnos y 
mínimos 

IR I rl 

eje 



Colcuio factor 
escala para 
eje "y” 


Entrada 


cabeceros/ 


RETURN 
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1. Introducir una función. 

2. Introducir las variaciones de X e Y. 

3. Dibujar la gráfica. 

Los dos primeros puntos son relativamente sencillos. 
El trazado de la gráfica y los valores de ios ejes de 
coordenadas es lo más complicado. Para trazar la gráfica 
podemos partir de una posición determinada (por ejem¬ 
plo. pixels X=40, Y=52). Obteniendo los valores de Y y 
almacenándolos en una tabla, puede pasarse a la pantalla 
mediante un factor de escala: DY=120/(Y2—Y1), siendo 
Y2 e Y1 los valores máximos y mínimos del eje Y, 
respectivamente. La posición en el eje X será (N(F)—Yl> 
*DY + 52, siendo N(F) el elemento f-esimo de la tabla N 
correspondiente a un valor del eje Y. 

Se puede dividir en cuatro partes el eje Y, y en seis e! eje 
X. Otras combinaciones son posibles, pero así se logra 
dividir la zona de graficación en cuadrados, haciéndose 
fácilmente visible ía evolución de las curvas para los 
distintos valores introducidos. 

Para evitar complicaciones innecesarias se puede in¬ 
troducir ios valores del eje y manualmente. Para ello, el 
ordenador debe indicar los valores mínimo y máximo. 
Así, si estos valores fuesen 0.12 y 3.6, se podría elegir para 
el eje Y los valores 0. 1.5, 3.0 y 4.5, 


Tabla de variables 

XS(6.4) Arras valores eje X. 

Y$(4,5) Array valores eje Y. 

TS(4,25) Array títulos ejes y rótulo gráfico, 
N(50) Array valores calculados de Y. 

F Variable de bucle. 

L Variable de bucle. 

F$ Función. 

X Valor de X. 

M1NX Valor mínimo de X. 

MX Valor máximo de X. 

DX Incrementos de X. 

Y Valores de Y. 

MAXY Valor máximo de Y, 

MINY Valor mínimo de Y. 

M$ Opción elegida del menú. 

Y1 Valor mínimo del eje Y. 

Y2 Valor máximo del eje Y. 

DY Factor de escala para graficación. 


Resultado 

Para probar la valide/ del programa se puede empezar 
por una función conocida, como la función y—seno XTX. 
DIBUJO 
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OIM Tíu.ao 

dim Nlaae) 


oo SÜB 100® 

CLS 

POR r«6 TO 30 0TEP 0 
POR La® TO 16 
PRINT RT L,P;" + 

NCXT L 

F0R T La® T0 10 3TEP 0 
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M8 por p-e to as 

306 IP P/B-INT ÍP 


/B» ThEN NEXT 


810 PRINT RT L iP; 

280 NCXT P 
23© NEXT L 
260 POR Pal TO 6 

27© NEXtV T 

28© POR Pal TO 4 

ISS 5 e 5 ¥ T P flT 

313 E5INT »T 17,»;T«<3) 

380 PBINT RT 10,0, '--- 


■Yl)«BY *63 


¡T|®a?a N To H íef , ' , ' T,<11 :RT al ' 8 
lie gSrí.^rSiiS "*’ 11 T ° Sl 

¡él SfeSÍ P**®' ,N<P> 

lile PRINT "ISSpicO be una rjnci 

lili SSJKÍ '■+¿Éñá N ER D ? u g^§K L Sü 

E SUIERÍ0 REPRESENTAR DE LA FD 
RMA: YaPUNClON X." 

1030 PRINT "TECLEA Lfl PUNCION CO 
H° USS D C 5¿ fi 'Í15 1 es£y ED E HABER ALGU 

URR RL0UNR5 PUNCI0NE5? D 5I ?8?0 fe 

l0S0 e ÍNPUT>0 rTUYS L " CBOeNB -" 

1070 PRINT ,,"URLOR MINIMO BE X? 

10B0 INPUT MINX 

1090 PRINT # i "URLOR MAXIMO DE X7 

1100 INPUT MX 

L5I DXa800/(MX-MINX) 

'MINX 


LET DXai 
LET XaM: 

POR Pal 


11* 

11 S® POR Pal TO 200 

un ts ít«v» 

iül NÍxT X r x * a/ ‘ >x ‘ 

1210 LET MRXYbNIU 
lga© LET MlNYaN( 1 ) 

123© POR PaB TO 200 

18*0 IP N CPJ «MINY THEN LET MINYa 

18^0 IP NflXY <N(Pí TMEN LET MRXYa 

1860 NEXT P 

^..PglNT "EL URLOR MINIMO DE Y 
1 ?S 0 "' Í MRXY " EL UfiL0R MflXIM0 DC Y 

Mtó&fW *81 Wfík 

wtrSlecer losurloAeS DE X (X >7 

. A O Y ■ 

130 © INPUT M 0 
131© CL3 

im íExW"í¿cigs N E?°uSgoi , iÍL 
aísias e&"Wíe*A¿s?s^’ Srr * 

i|b 0 INPUT Yl 

l?g 8 PRINT "TECLEA EL URLOR DEL 

P s iM^ s r ¡ "’ PflRB RE 

^ploti? íu 

JíMRÍH? fl ^Orgfeeg*?sl^!p 


PROGRAMACION 

AFONDO 



BLANCO" 

S 8 JSÍ YSf!f M0<1,r ‘ 

?§INT“"URLOR “é P;"7“ 


ÍNPj^Y 0ÍP) 


|RINT "TECLEA Lfl ESCALA DEL 

"MINIMO OE X ES ";MIN 

"MAXIMO DE X ES "jMX 
»x"MAY 6 DIUISIONfe* Y 
(PLOTS) EN EL EJE 


NEX 
CLS 

- - PR 

EJE X" 

1500 PRINT 

1510 PRINT 
1580 PRINT 
^200 PUNTOS 

1530 PRINT "UALÜR DE Lfl ESCALA M 

LOR AlS;Sg?" PRIMeR ° TC0LEfl CL 

154-0 POR Pal TO 6 

1BB0 PRINT "URLOR DE ESCALA "¡F¡ 

1560 INPUT X«(Pí 
1570 NEXT P 
158© CLS 

l§g§ PRINT "TECLEA EL TITULO DEL 
c <jRRFICO (COMO MAXIMO 25 CARA 

1610 INPUT Ti(1) 

1620 PRINT "TECLER LA PUNCION n 

g ? 1 " 0 aa = BBB ™ • 

1 I12 ? R íílIv";5 c !=ia.,5 1 - nombre bel 
íesl ÍÑ¿¡J¥ X Tj? 3 f BRflCTeR ' 3 * 5 * * 8 - ) " 

l6og PRINT “TECLEA IL NOMBRE DEL 

iSll ÍÑpuT X T*®»f BRRe ^ ER “** E 

seee §¥^ RN 


3 t--♦-+- ,y+ 

+ + + + + y t 
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+ + ♦_ _ _—+ 

_ ♦ + y* + + + 

8 +- + -yf. + -+- + „- + 

+ + / + + + + 

_ + Y * * 7 + 

Ejt y + A + + + + 

, ♦ / ♦ + t + + 

+ / + + + + +• 

♦ / ♦ + + + + 

♦/+ + + + ♦ 
_ f ♦ * + ♦ ♦ 

®_ , 1 8 3 4 6 

Ejt x 

¿ri7reó~dtt”siÑ"+x~. 

SIN X+X 
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T ¡ oda vía hay muchos para 
tos que el Spectrum es un 
sofis tinado juguete dd des- 
arrollo tecnológico. Soíístíea- 
do. pero juguete al fin > al 


cabo. 

N a noord enador, ordenador do¬ 
méstico o lióme computen según la 
terminología anglosajona, son las di¬ 
versas denominaciones usadas para 
calificar a este ordenador, convertido 
en el regalo de fin de curso mas 
preciado por las nuevas generaciones. 

Hasta el momento, hemos asistido 
a una enorme proliferación de orde¬ 
nadores. evidenciándose una enorme 
laguna: el ordenador persona! para 
aplicaciones "profesionales". Sin du¬ 
da el nuevo Ql de Sinclair pretende 
llenar ese campo. Nía>ores capacida¬ 
des. disco duro, BASIC más poten¬ 
te... a un precio igualmente inter¬ 
medio. 


Pero quienes tienen un ordenador 
desde hace tiempo ya saben que el 
problema no está sólo en la compra 
de uno nuevo, sino en la pérdida del 
software dd viejo. Es por ello que vale 
la pena resistir c intentar ampliar al 
máximo las capacidades del ordena¬ 
dor que. dicho sea de paso, rara ve/ 
entra dentro de la política de comer¬ 
cialización de las casas proveedoras. 

El microdrive constituye hasta el 
momento la ampliación más impor¬ 
tante al Spectrum. sobre todo la más 
conocida en nuestro país, pero no es 
la única. Desconocido en el mercado 
español, aparecieron en mar/o del M 
una serie de expansiones modulares 
bajo el nombre de Basicare. \ pesar 
de sus enormes ventajas desconoce¬ 
mos si llegará a comercial izarse en 
España. Veamos sus características 
más notables, objeto de este artículo. 

Basicare es una serie de módulos 
conectados entre sí por la parte su¬ 
perior e inferior de cada uno de ellos. 
Existen diversos módulos con dife¬ 
rentes posibilidades, de forma que el 
usuario construye —podríamos decir 
que edifica—su propio ordenador de 
acuerdo con sus necesidades. Gracias 
a este acople vertical se consigue un 
gran aprovechamiento de espacio y se 
evitan las conexiones por cable. 

Inicialmente se pensó en el ZXÍil, a 
fin de potenciarle sus puntos más 
débiles (principalmente la escasa ca¬ 
pacidad de memoria). Pero el pro¬ 
yecto era más ambicioso v ofreciendo 
un procesador de 1 ó bit y el MSDOS 
(Microsoft Disk Gperaiion System) se 
abría la puerta del abundante soft¬ 



ware del IBM/PC y mis clónicos. El 
ZX81 fue sólo el principio. 

En junio del presente año ya estaba 
disponible para el Spectrum, llenando 
el vacío existente para aplicaciones 
“serias". 

Ocho son los módulos que se pue¬ 
den conectar: 

i. PERSONA 

El solo no hace nada, pero tampo¬ 
co harían nada todos los demás sin él, 
pues su misión es establecer el bus de 
conexión para los demás módulos. En 
el caso de tener el Spectrum de 48K es 
necesario hacer un pequeño cambio, 
anulando las últimas i2k (sí por error 
lo conecta directamente, es probable 
que no le ocurra ningún daño a su 
ordenador, pero no se lo aconseja¬ 


mos), por lo que resulta menos venta¬ 
joso para este equipo. 

Con este módulo se pueden con¬ 
trolar hasta cinco módulos adiciona¬ 
les. Pura expansiones superiores a 
cinco módulos existe una expansión 
del propio módulo PERSONA. 

2, RAM 

Existen tres módulos de ocho, 16 y 
64K de memoria. Con ellos puede 
llegar hasta cuatro megabytes de 
memoria {lMg=U)0()k). Lógicamen¬ 
te, la configuración del Z80 no permi¬ 
te estos lujos directamente. Para ello 
ha de configurarse un módulo llama¬ 
do mi ni mapa, que organiza la memo¬ 
ria incorporada en tres grupos de 
memoria y cada grupo en segmentos, 
a fin de permitir su manipulación. 

















tarse la Basicare para utilizar pro¬ 
gramas de más de 16K, 

3. PERICON 

Lisie módulo dispone de ires puertas 
de 8 bits para operaciones de entrada 
de datos, presentando diversas moda¬ 
lidades. Así PERICON A permite 
potenciar la comunicación vía parís, 
convertidas en simples direcciones de 
memoria accesibles por las instruc¬ 
ciones PEER y POKE. PERICON B 
amplía el número de puertas, PERI¬ 
CON C es un interface Centronics 
con el que poder utilizar impresoras 
con las clásicas instrucciones LLIST, 
LPRINT, para campos de impresión 
de hasta 80 columnas y 66 líneas por 
página. 

4. DROM 

Uno de los más importantes módu¬ 
los, con el que dispondrá de 8K de 
memoria permanente ROM para ru¬ 
tinas propias. Rutinas de impresión. 
Utilities, etc., iodos accesibles inme¬ 
diatamente. 

Junto con el módulo se incluyen 
unas rutinas interesantes: auto enume¬ 
ración de las lincas det lenguaje BA¬ 
SIC, un comando RESE I en código 
máquina, y una rutina de lectura del 
módulo del reloj (CLOCK) que asig¬ 
na los valores relativos a la lecha y 
tiempo, en la variable tS (aunque ello 
presenta el inconveniente de su elimi¬ 
nación de memoria con cada RUN o 
CLEAR que se efectúa, necesitando 
hacer una posterior llamada al módu¬ 
lo del reloj). 

5. TOOLKIT 

Junto con el anterior, es uno de los 
módulos más interesantes. A las ruti- 


En el primer grupo reside la ROM, 
que ha de estar presente para el 
procesador de forma constante. A los 
otros dos grupos de memoria se 
accede según las necesidades. El se- 


Módulos de expansión de 
memoria de 8, 16 y 64K, 
pudiéndose llegar a 4 mega- 
bvtes. 


gando grupo contiene segmentos de 
32K donde residen los programas en 
BASIC, El tercer grupo tiene segmen¬ 
tos de lóK para ubicar programas en 
código máquina o rutinas en BASIC, 


La figura l muestra el mapa de 
memoria y la interacción de los dis¬ 
tintos grupos. 

La expansión de memoria tiene, 
por tanto, unas grandes limitaciones, 
ya que sólo trabaja con el límite de la 
RAMTQP, 32768 o direcciones infe¬ 
riores, Es decir, que programas de 
más de 16K no pueden utilizarse si 
está conectada la Basicare. La am¬ 
pliación de memoria resulta espe¬ 
cialmente interesante para la utiliza¬ 
ción de otros módulos, como el 
DROM o para almacenamiento di¬ 
verso, como puede ser diversas pan¬ 
tallas en cualquiera de sus zonas de 
memoria de 16K, pero no para reali¬ 
zar programas más complejos, sino 
todo lo contrario: deberá desconec¬ 


Diseño modular según sus 
necesidades. 


ñas EPROM creadas se puede acceder 
directamente desde programa si se las 
guarda en este módulo que, al igual 
que el DROM. puede tener 8K. Como 
complemento al anterior es especial¬ 
mente útil, ya que se pueden desarro¬ 
llar y probar rutinas en DROM y 
después pasarlas al TOOLKIT, una 
vez verificado su correcto funciona¬ 
miento. 


6, LINK A 

La conversión ana lógico-digital, 
tan de moda para el control de 


I 










aparatos domésticos, tiene aquí su 
módulo. La lectura se realiza median¬ 
te las instrucciones PEEK y POKE. 

Cada módulo tiene ocho canales de 
comunicación, pudiendo conectarse 
un máximo de cuatro módulos. El 
voltaje debe estar comprendido entre 
cero y cinco positivo, pudiendo resul¬ 
tar dañado el ordenador si se aplican 
corrientes negativas o superiores a 
cinco voltios (¡cuidado con su es¬ 
téreo!). 

7, CLOCK 

Se trata de un autentico reloj con 
batería que ofrece los datos de tiempo 
y día de la semana, mes y año. lectura 
y puesta en hora del reloj. Junto al 
módulo se suministra un cassette con 
dos programas para la lectura y 
puesta en hora del reloj. La batería 



* 



permite una autonomía de tres meses 
y se carga automáticamente, 

8, SONUS 

Módulo simetizador de voz y gene¬ 
rador de sonido, cubriéndose el vacío 
sonoro impuesto por Sinclair, 

Según cuáles sean sus necesidades, 
puede “montarse'" su propio ordena¬ 
dor a la medida, Pero no se haga 
demasiadas ilusiones: con estos mó¬ 
dulos puede tener unas potentes 
herramientas pero sólo eso. Todo el 
trabajo lo tendrá que hacer usted, ya 
que no existe software por el momen¬ 
to a excepción de lo que hemos 
comentado suministrado con los mó- 


E 7 hardware ya está hecho. 
El software es cosa suya. 


dalos. El hardware está ahí, el softwa¬ 
re requiere de profesionales que se 
aventuren con el Speetrum. Un solo 
ejemplo: basta un par de módulos 
para tener 64K, pero ¿ha visto en el 
mercado algún programa que necesite 
más de 48K? E incluso si se trata de 
un programa que necesita más de íbK 
no será factible por la técnica de 
“paginación" de la memoria en blo¬ 
ques de I6K, como hemos visto. 
Todo está por hacer, incluso por 
rehacer, como ocurre con los manua¬ 
les donde la diferencia en el uso de 
valores decimales-hexadeei males dis¬ 
ta mucho de estar clara o la explica¬ 
ción para su utilización por el orde¬ 
nador. no distinguiéndose en muchos 
casos entre el ZX81 o el Speetrum. 

Otro de los problemas a tener en 
cuenta es que el módulo PERSONA 
no tiene el pon de expansión, por lo 
que no podrá incorporar otros perifé¬ 
ricos tales como jovstick o el inrerface 

peí o si ei imerjace L con lo que 
podrá seguir trabajando con el micro- 
drive , buen compañero de Básica re, 
al añadirse la posibilidad de utilizar la 
NetWork y la salida RS232. 

En cualquier caso, una vez más la 
técnica dio el paso hacia adelante y 
ahora hay que alcanzarla. Valore sus 
necesidades y evalúe las ventajas e 
inconvenientes por si le es de interés. 


Basteare: usted decide fa 
"altura'' de su Speetrum de acuerdo 
a sus necesidades. 
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T od o p rogra m a req u i e re 

generalmente de entrada de 
datos por pantalla, Para ello 
el Spectrum y el BASIC en 
general dispone de la instruc¬ 
ción INPUT con la que, sin dema¬ 
siadas complicaciones puede lograr 
su objetivo* Pero sj es usted un 
perfeccionista, seguro que más de una 
ve/, ha pensado en la posibilidad de 
confeccionar una ficha de entrada de 
datos y realizar las anotaciones en los 
campos al efecto diseñados en la 
ficha, es decir, en utilizar la técnica de 
tk máscaras'\ Todo ello, lógicamente, 
a través de la pantalla de su televisor. 
Para lograr esto la instrucción IM- 
PUT no parece ayudar mucho, pues 
siempre efectúa la entrada de datos en 
la última línea de la pantalla. Por el 
contrario, la instrucción PR1NT AT 
resuelve el problema a medias, ya que 
puede imprimir pero no leer datos* 
Pero no hemos de desesperarnos tan 
pronto, y confiar en la potente ins¬ 
trucción ÍNKEYS, Con ella se pueden 
leer datos sin que aparezcan en pan¬ 
talla y con la instrucción PRINT AT 
se puede representar los caracteres 
leídos allí donde queramos. 


Dicho asi puede resultar demasia¬ 
do trivial y frustrante para el perfec¬ 
cionista que a buen seguro no se 
conformará con utilizar el INPUT* 
Para realizar una auténtica máscara 
han de indicarse los campos de cada 
concepto: la posición donde empieza 
y termina o, lo que es lo mismo, las 
coordenadas iniciales y finales de X y 
la coordenada de Y. 

También podemos indicar el tipo 
de datos del campo, pudiendo ser 
alia numérico o numérico y, en este 
último caso, real o entero, con lo que 
evitar errores en la introducción de 
datos con oportunos mensajes o to¬ 
nos de error. 

En el programa adjunto se ilustra 
este procedimiento en la rutina que va 
de la línea 9000 a 9095. (Una nume¬ 
ración alta permite partir de las 
rutinas construidas para posterior¬ 
mente realizar el programa sin tener 
que repetir dichas rutinas)* Las líneas 
10 a 5113 únicamente sirven de ejem¬ 
plo de utilización de la rutina, que 
veremos a continuación en detalle. 

Las variables X9, T9, Y9 represen¬ 
tan las coordenadas del campo y K9 
el tipo de dato* Para controlar la 


posición dentro de un campo se 
utiliza la variable X8 que parte del 
valor de X9 y que podrá alcanzar 
como máximo el valor de 19. es decir, 
los valores de columna inicial y final, 
respectivamente. También sirve para 
retroceder (anular caracteres) sin re¬ 
basar el valor de X9. 

Entrando por la linea 9026 micia- 
Ii/amos los valores de X8 y X$, que 
será la variable que contenga la in¬ 
formación del campo T9-X9+L 

La línea 9030 nos informa con el 
signo interrogación de la posición en 
que se introducen los datos, por 
efecto de la instrucción [NKEYSde la 
siguiente línea. Una vez. pulsada una 
tecla se comprueba varias cosas: 

L Si se ha pulsado ÉNTER, El 
código ASCII de esta tecla es el 13, 
La instrucción 9035 lo reconocería 
como fin de entrada de datos para ese 
campo. 

2. Si se ha pulsado la tecla CAPS 
S1IIFT + 5: el retroceso, a fin de 
borrar caracteres escritos. Dicha tecla 
responde al código ASCII 8, con lo 
que se pasaría a la línea 9050, donde 
se comprueba que se puede retroceder 
(six8£x9> y se imprime un blanco 


REM a***#**#####**###*###** 

* * utilización miseára* 

* # con q i Sp c X rum . 

1S 0IM t ft (99,22) : DIM *«(99,22 
1: DIh i«(99,22); LET n-Q: LET y 

*“aa CLS : PRINT ""i. ftiu*.a 

. Bajas.3. Cambios" 

34 LET a|■INKEYt: IF LEN Rf>0 
TMEN Gü TO 30 

40 GO TO 100#URL (Ri) 

95 REM-- 

100 REM Ritas 

191 REM.-. 

110 GO SUB 5000: LET l«l: GO SU 
B 5070: LET n-rt + 1: GÜ TO 20 
199 REM - 

300 REM Bajas 

301 REM- 

310 GO SUB 5000: LET t«3: GO SU 
B 5070; LET n«n-l 


320 LET ti (O»"": LET aitc)*' 1 ": 
LET aSCO ; GO TO &9 

399 REM--- 

390 REM Cambios 

301 REM -- 

310 G0 SUB 5009: LET t»0: GO SU 
B 5070; GO TO 30 

5099 REM ********************* 

* inprasion mascara » 

*«#«•***»•**»»#*****» 

PRINT RT 0,12;"Bib U 0 


5010 CLS 

5020 PLOT 95,167; DRRU 00,0 
5030 PRINT RT a,3,"C0di80 ; 

5949 *fRINT RT 3, ti ‘‘T Lt UtO... " * 


50&0 

50¿ 0* 




PRIN 
























(carácter 32 en ASCII) para borrar la 
información. 

3* Si el tipo de dato es el correcto 
de acuerdo al valor de K9. 

— Si es un dato real (K9=l), por 
efecto de la Línea 9060 sólo se admite 
la entrada de números y el signo 
menos (—)« 

— Si el dato es entero (K9=2) sólo 
se admiten los números (línea 90-65), 

— Y si se trata de datos alfa numé¬ 
ricos (K9-3) son válidos todos los 
caracteres comprendidos entre el có¬ 
digo 32 y 164 ASCII (Línea 9070). 

Un dato incorrecto se imprime 
(línea 9084) y se pide un nuevo 
carácter, siempre que no se haya 
llegado al final del campo (x8=t9), en 
cuyo caso se asigna el valor del 
campo a la variable xS de forma 
automática sin necesidad de presio¬ 
nar ENTER. La rutina devuelve el 
valor X para datos numéricos (k9=l 
ó K9=2 ) y x3 para los a lía numéricos 
(K9=3), 

Decíamos que entrábamos por la 
línea 9026 en ve/ de hacerlo por la 
9000. Asi se evita el paso por la 9015 y 
9020, cuyo objeto no es la introduc¬ 
ción de datos, sino la impresión de 


Godigo 
Ti lulo 
Rotor 
Editor 



datos conocidos para los distintos 
ca nipos. 

La útil i/ación de esta rutina puede 
parecer algo engorroso al principio. 
Imaginemos que se desea guardar 
referencias de libros (código, título, 
autor v editor) tal y como se haría en 
cualquier biblioteca {el código podría 
servir 'para clasificar por materias). 
Las lineas 5000 a 5060 realizan la 
máscara, que nos servirá para todas 
las operaciones de actualización, es 
decir, paiu dar de alia nuevos libros, 
anularlos o efectuar cambios en sus 
datos. De idéntica forma tas instruc- 


fii hlioti¿* 



cienes 5070 a 5113 permiten introdu¬ 
cir datos en la máscara para su 
actualización. El control de los distin¬ 
tos tipos de actualización se realiza 
mediante la variable i t {=! par altas: 
-2 para bajas; =0 para cambios). Así, 
si el valor de “t” = 1 se pueden 
introducir los datos en los distintos 
campos: si t=2 sólo se pide el código 
para darlo de baja, y si t=0 previa¬ 
mente se coloca en el campo su valor 
para después poder realizar los cam¬ 
bios oportunos. 

La ficha que se muestra es sólo un 
sencillo ejemplo. 


J i 11 

URN 


: RGT 


6070 REM 


* En indi <utos# 

**##*###### 4##### 


5000 LET 
•8: LET 
• X ; IF t 
6090 LET 

iW 

500 a let 

5993 LET 
8199 LET 
5191 IF 
0 6193 
5193 LET 
5193 LET 
5119 LET 
5111 IF 
0 6113 
5113 LET 
5113 LET 

9999 REH 


X»* 9 : LET t 9 * 19 : LET y 9 
k 9 *3 : 00 SUB 9935 : LET C 
•S THEN RETURN 
19 * 39 : LET y 9 . 3 : LET k 9 

t THEN GO SUB 9986: 00 T 

00 SUS 9939 


S att(e): 

te) «X* 

■4 

TH~ 

i: 


x 

t 

x y fHEN 00 SUB 9935: 00 T 


Kl»«« (c) : 00 BUB 9939 

ai te) ■** 

t THEN 00 BUB 9936: 00 


x(*a«tc) 

• ice 


) *X$: 


00 SUB 9939 
RETURN 


* Rutina entrada da- * 

» toa por aaicara. » 
a * 

* x9*coluirina inicial.» 

* tOicoiuitna final. • 

* y9*fita. • 

* k9*tiP 0 d« dato « 

« 1-Rtal 3-Entaro • 

* 3-flWa. * 


9915 PRINT RT y9,x9; INK 4 j X ; 00 
T0 993S 

9939 PRINT RT V9,x9; INK 4¿X* 
9938 LET XB*x9: PRINT RT W9.x9jX 


$936 __ 

9939 PRINT RT u9,XBj 


LET XB*X9:_LET 

r L 


LRBH i;"?" 


9931 LET k! 


IF LEN U9> « 


_ _ XNKEY 

9 THEN 00 T0 9939 
9938 IF ki-CHRÍ tt3) THEN PRINT 
kt- 00 T0 9999 

9049 IF k*oCHR* (6) THEN 00 T0 
9966 

9050 IF x6 < >x9 THEN LET X8*X8-1: 

.it E I^ X, í x, ¿ l - T 8 LEN (x f > -1) : PRI 
NT RT yg.xBiCHR* 33;: PRINT RT y 
9.X8+1;CHR* 33;: 00 T0 9039 

9051 00 T0 9980 

9gSB 99 T0 9055» t k9*5) 

3 ^IS. I L,¿*. >CMR I í44) ñND *|<CHR| 
„ *5®' PND ktOÍHRS 147) THEN 00 
T0 9085 

9061 00 TO 9080 

-9M5 XF M¡>CHKj (47J RNO k*<CHR« 
(58) THEN 00 TO 9085 
9066 00 T0 9080 

9070 IF k t > CHR t (31) RND K|<CHR| 
i 165) THEN 00 T0 9085 
9080 BEEP .6,.5: 00 Tü 9030 

9084 PRINT flf yQ^xéik*;: LET X|* 
+ £><© > «í e THéN 6o T0 9000 

9085 PRINT RT yQ.xejk*;: LET xi* 
x* + k*: IF X8>*t9 THEN 00 T0 9090 

IIP bo to 0 *»!. 11 PSUSC 00 

§331 í5tS*í >3 ™ bn LeT «■ USL «• 





















★ fedospectrun 




También para despertar¬ 
se puede resultar el Spec- 
trum de gran utilidad, 
siempre que tenga un sue¬ 
ño ligero, o en caso con¬ 
trario un sintet¡/ador mu¬ 
sical. 

Como ya habrá adivina¬ 
do, con este programa 
puede conseguir que su 
Spectrum actúe como una 
verdadera alarma. Para 
ello, sólo ha de introducir 
el tiempo que ha de trans¬ 
currir hasta que suene la 
alarma (en horas y minu¬ 
tos). Para activarla basta 
con llenar a la rutina en 
código máquina: RAN- 
DOMIZE USR 65120. Al 
transcurrir el tiempo fija¬ 
do, el ordenador interrum¬ 
pirá lo que estuviese 
haciendo para locar una 
breve melodía, a! mismo 
tiempo que el borde de la 
pantalla se volverá rojo. 

Tenga en cuenta que la 
instrucción RANDOMIZE 
IJSR 65120 únicamente 
llama a la rutina para que 
se ejecute una vez. Cada 
vez que desee activar la 
alarma deber llamar a di¬ 
cha rutina. 


10 

20 

30 

40 

50 


340 

350 

360 


370 
3 SO 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 


530 

540 

S50 

560 


Reloj 


Alarma 


LE 


Fin 


_L 


Assembler 


RST 56 

DI 

PUSH VF 
PIJSH ÜC 
LD A.(65535) 



Comentario 




LD A,2 
CALI tt 22ys 
LD 13.10 


PUSH RC 
LD A. I 
CALI tt 2028 
LD A.20 
CALI tt 2028 
CALI tt 03FX 
LD A. I 
CALL n 2028 
LD A.25 
CALL tt 2028 
CALI tt 03F8 
POP BC 
DJNZ Ll 
LD A ,62 
I.D. LA 
IM I 


POP BC 
POP Al 

Ll 

RET 



Cambia color del BORDER. 
Número de BEEPs. 


Guarda el valor de B. 

Carga A con la duración de la nota. 
Coloca A en el stack. 

Llama a la rutina de sonido. 
Segundo BEEP, 


Recupera E3 y completa la nota. 


Id Cli : ClEhN bbliá: RESTORE 
300 

1S PRINT TAB 13;”R«109"¡TRB 6; 
FLASH 1;"Cargando codígo raaquin 
4" 

£0 LET *Ulfta0: LET i al 

30 RER0 4: IF 4>SSS THEN SO TO 
50 

40 LET SUtli aftUfll+4 : POKE 65119+i 
.4 : LET i ai+1: GO T0 30 

18 íír'SüíilTtlSt 1 ?ST° 888 

70 RERO 4: IF 4>256 THEN GO TO 
90 

80 LET ftulAaftum+a: POKE 65126+i 
i é: LET ¿ai+1; GO TO 70 

90 IF tuffl <>4 THEN GO T0 S00 

95 CLS : PRINT RT 0,0;"Indique 
4i tiempo que h4 de transcu 

rrir pare que suene te «terne 
(en horas y minutos)" 

100 INPUT "HO r*7";h: POKE 65632 
j h 


110 INPUT 
533,1» 

130 POKE 65534,0 

ÍÍ2 £$!SE 

160 STOP 

T g00 PRINT "Error": 
'300 DATA 62,9, 


Minutos?"; ib: POKE 66 


LIST 9999: S 


- - -A 62,9,237,71,237,94,201 

911,265,243 ,245,lÍ7,¿8,2¿5,¿55, 
, 6,6 1,50,255,26¿,24¡97 ,é 


lililíes. 

254,0,40,q,t 
2,49,50,255 

0 3l0 - DAtA 266,§§¿254,255^254,0,4 



( 








































A prender a programar en 
BASIC es relativamente sen¬ 
cillo. lo cual no puede decirse 
de! código máquina. Saber 
cómo trabaja el ordenador 
para nablarle en su propio lenguaje 
puede resultar un poco frustrante al 
principio. Por ello se suele empezar 
por averiguar el significado de esos 
PEEK y POKE que esporádicamente 
suelen aparecer en cualquier progra¬ 
ma. 

Unos se corren la voz... "¿sabes que 
el POKE 23692,255 evita el mensaje 
de SCROLL?" Otros, los más incau¬ 
tos, prefieren mirar el manual, cre¬ 
yendo que no hay nada mejor que un 
buen libro. Pero el manual de Sin¬ 
clair, ya se sabe, adolece de buenas 
explicaciones, como es el caso del 
capítulo de las variables del sistema 
que trataremos exhaustivamente en 
este articulo. 

De la dirección 23552 a la 23734 el 
Spectrum almacena una información 
muy valiosa que en muchos casos, y 
esto es lo importante, puede ser 
modificada. 

Las variables del sistema son b\ies 
en la memoria ROM del Spectrum 
que permiten al ordenador conocer 
los pasos que tiene que dar para 
ejecutar las órdenes que se le han 
dado. La información de cómo la 
memoria del Spectrum está repartida 
se guarda en estas variables, de forma 
que el ordenador pueda acceder a 
ellos y actualizarlos siempre y cuando 
lo necesite. 

Se puede hacer uso de la informa¬ 
ción almacenada en estas direcciones. 


mediante su lectura o cambiándola 
para que el ordenador haga unas 
operaciones que de otra forma no 
haría o para que lo haga con más 
facilidad. 

No todas las variables pueden re¬ 
sultar útiles. Y por supuesto no todas 
se pueden cambiar. Algunas causarán 
un bloqueo dd ordenador o simple¬ 
mente se ignorarán. Otras se pueden 
cambiar alegremente, pero sólo en 
circunstancias especiales y la mayoría 
se pueden variar, pero con unas 
Condiciones y unas limitaciones muy 
estrictas. 

Veamos cuál es la información 
contenida en estas variables y cómo 
sacar el mayor provecho de ellas. 


23552-23559 (KSTATE) 

Cuando el procesador se interrum¬ 
pe una de las tareas que tiene que 
hacer es barrer el teclado y almacenar 
el resultado de dicha lectura en la 
variable KSTATE, Los bytes tienen 
usos diversos y no todos se pueden 
utilizar por el programador. El pro¬ 
grama I ilustrará lo que ocurre en los 
8 bytes de la variable KSTATE* 
Ejecútelo y pulse varias teclas para 
comprobar el efecto que causa el 
pulsar teclas individuales como 
SHIFT. 

Los primeros 4 bytes de KSTATE 
tienen algo que ver con el 'Tu o kev 
rolfo ver* \ que permite pulsar una 
segunda tecla antes de que se suelte la 
primera. PEEK 23556 devuelve el 
código del comando o letra situada en 


Ja parte superior de una tecla pulsada, 
de manera que si se pulsa SIMBOL 
SHIFT A. se tendría el valor del 
código de la letra "A" y no el de "a " 
ni el de STOP. 

Esto puede ser útil cuando lo qué 
interesa es teclear las opciones supe¬ 
riores de las teclas. 

El efecto de pulsar una tecla es 
temporal y dura solamente mientras 
se mantenga pulsada. El valor alma¬ 
cenado en la dirección 23556 podría 
ser 255, sí no se ha pulsado tecla 
alguna en el momento de la interrup¬ 
ción. Para la tecla ENTER dará el 
valor de 13. Para la tecla SPACE dará 
el valor 33. y pulsando ambas teclas 
SHIFT simultáneamente, se obtendrá 
el valor 14. El programa 2 lo de¬ 
muestra, 

23557 se utiliza para controlar el 
tiempo, previniendo así el contacto 
intermitente de una tecla. 

23558 es el que controla el tiempo 
de pausa ames de que la tecla co¬ 
mience a repetirse y el tiempo de 
repetición una vez que la tecla empie¬ 
ce a repetirse. El retardo utilizado está 
almacenado en las variables del sis¬ 
tema encargadas expresamente de 
ello, que son las que están situadas en 
los bytes 23561/2. 

23559 contiene el código del último 
carácter pulsado. Este depende de si 
la tecla SHIFT ha sido pulsada o no. 
Los números producidos son los 
mismos que si se hubiera puesto 

PRINT CODE INKEYS 
excepto que el resultado sería la 
última tecla pulsada y no la que se 
pulsa en el momento. Pruebe el pro- 


















hPüíThRIh h QUE LLUEVE 


programa nuírt. l 

L0 FüR a*23552 TÜ £3559 
£© POKE £3692,0: REM ScroU 
30 LET baPEEK a 

40 PRINT a;TñB 10,b,THB £0;CHR 
$ b RND b >31 
50 NEXT a 
60 GG TQ 10 


Programa nurn . 2 

10 LET astPEEK 23556 
20 PüKE 23692>0 
30 PRINT a iCHRt a RND a>31 
40 GÜ TQ 10 


Programa num, 3 

10 LET a sPEEK 23559 
20 PQKE 23692,0 
30 PRINT a,CHRt a RND i>31 
40 GQ TO 10 


Programa num. 4 

10 print ■■Pulsa una lacia ahor 
a " 

20 FQR asi Tü 900 
30 NEXT a 
40 CLS 

50 LET a «PEEK £3560 
60 PRINT a: IF i>31 ThEN PRINT 
CHRt a 
70 GO TO 10 


la instrucción INKEYS. En el pro¬ 
grama 4 encontrará que si se pulsa 
una tecla cuando se lo indique el 
ordenador la respuesta aparece en la 
pantalla un tiempo después, aunque 
el programa se encuentre cu la línea 
50 cuando la pulsó. El código de la 
última tecla pulsada se almacena 
hasta que se pulse una nueva tecla. Es 
posible comprobar si se ha pulsado 
una nueva tecla examinando el quinto 
bit de la variable FLAG 2361 L Su 
valor ha de ser uno sí se acaba de 
pulsar una teda. 

Esta variable se puede utilizar para 
comprobar cualquier situación que 
requiera respuestas de tipo sí/no. Si 
se sabe que una situación así va a 
aparecer en un momento determina¬ 
do de un programa, se podría adelan¬ 
tar la respuesta antes de que el 
programa llegue a dicha situación. 
Además, si dos teclas se pulsan simul¬ 
táneamente, el programa respondería 
corno si se hubiese pulsado una sola 
tecla. 

Caracteres de control se pueden 
generar usando CAPS SHIFT junto 
con las teclas numéricas. La tecla 
ENTER dará el valor 13, pulsando las 
dos teclas SHIFT se obtendrá el valor 
14, Para comprobar esto pruebe el 
programa número 5, 


grama 3. Ejecútelo y pulse varias 
teclas utilizando conjuntamente la 
tecla SHIFT. 

23560 (LASTK) 

Cada vez que se hace un barrido 


del teclado y hay una teda pulsada, el 
valor de esta variable se actualiza. 
Contiene el código de la última teda 
pulsada. 

Esta variable del sistema no hace 
nada que no se pueda conseguir con 


23561 (REPDEL) 

Esta variable contiene la duración 
del tiempo que una teda se puede 
mantener pulsada antes de que em¬ 
piece a repetirse. Se puede alterar el 
valor con POKE, si se quiere que la 


















































POKE 


tecla comience a repetirse inmedia¬ 
tamente después de pulsarla. El cur¬ 
sor es difícil controlarlo si se hace 
POKE 23561J. Al realizar POKE 
2356LO se elimina el efecto de repeti¬ 
ción de la tecla y dando el valor 5 
obtiene un retardo de cinco segundos. 


23562 (REP PER) 

Esta variable controla la duración 
del tiempo entre repeticiones una ve/, 
que la tecla pulsada comience a repe¬ 
tirse. Si se quiere apagar el efecto de 
repetición por cualquier motivo basta 
con hacer POKE 23562.0, Sin embar¬ 
go* si se quiere aumentar el tiempo 
en Lie repeticiones hay que haca PO¬ 
KE 23562.255. Si se quiere editar 
líneas de programas largas (como por 
ejemplo líneas PRINT con mucho 
contenido} haciendo POKI 23562J 
incrementará la velocidad del cursor. 
Pero luí y que tener cuidado si se 
cambia con frecuencia, puesto que el 
cursor se puede descontrolar. Los 
valores normales con los que trabaja 
d cursor son 5/50 seg, ó 1/10 seg. 


23563/4 (DEFADD) 

Es la dirección del argumento de 
una fundón definida por el usuario 
en un programa. Así, si se tiene DEF 
FN A(B), el valor en 23563/4 será la 
dirección de la letra B en los parénte¬ 
sis de esa línea, mientras que sólo se 
utiliza la función. La mejor forma de 
hacer PEEK en 23563/4 para ver esto 
es poner la instrucción PEEK como 
parte de la función FN a evaluar; ya 
que siempre valdrá cero, salvo cuan¬ 
do se evalúa la función. Lo que 
significa que la línea 

10 PRINT PEEK 23563 + 256 x 
PEEK 23564 

siempre valdrá cero. Por otro lado 

10 DEF FN A(B> = PEEK 23563 + 
256 X PEEK 23564 
20 PRINT FN A(999) 

contestará con la dirección de B en ia 
línea 10. El valor 999 no es significa¬ 
tivo, sólo es un dato que se da a B 
para prevenir un error* En el caso de 
que una función no tenga argumentos 


contestará con el valor de la dirección 
del paréntesis* 

10 DEF FN A()= PEEK 23563 + 256 
X PEEK 23564 
20 PRINT FN AO 


23568 a 23605 (STRMS) 

Los primeros 14 bytes en el BASIC 
del Spectrum contienen direcciones 
de los canales. Los canales —3 a +3 se 
guardan en dos bytes cada uno. 


23606/7 (CHARS) 

Esta variable tiene valores lijos: el 
cero para la 23606 \ el 60 para la 
23607* La variable apunta hacía la 
dirección del comienzo del juego de 
caracteres que utiliza para imprimir 
en pantalla e impresora. SCREENS 
también utiliza esta variable del sis¬ 
tema. E*a dirección normal a la que 


apunta es la 15360 cuyo valor es 256 
menos que la dirección del comienzo 
del juego de caracteres de la ROM 
(256 menos porque al generador de 
caracteres se puede acceder con una 
instrucción del Upo PEEK 23606 + 

256 X PEEK 23607 + CODE “A" X 8 
\ como e! primer carácter es el 
espacio cuyo código es 32 se puede 
ver 8 X 32 = 256). El generador de 
caracteres ocupa 768 bytes, por lo que 
si se desea crear un nuevo juego de * 
caracteres se debe dejar a un lado este 
número de bytes para no borrarlos* 

Se ha mencionado que SCREENS 
usa esta variable. Realmente el pro¬ 
blema reside en que SCREENS no 
reconoce los caracteres definidos por 
el usuario a no ser que éstos sean 
similares al que usa el Spectrum. 
SCREENS hace una búsqueda a tra¬ 
vés del juego de caracteres que está en 
una tabla hasta que encuentra uno 
similar. 

Como el mapa de la pantalla del 
Spectrum *se hace bit a bit en ve/ de 


Programa n u iw . 5 

10 LET a =PEEK £3560 
£0 PRINT a j CHR$ a ANO a>31 
30 GO TG 10 


Programa num . 6 

10 FÜR X*144 TO 164 

20 PRINT AT 0,0;CHR* X 

30 POKE £3606,PEEK 23675 

4.0 POKE 23607, PEEK 23676-1 

50 PRINT BT 20,0; SCREENS (0,0) 

60 PAU5E 40 

70 POKE 23606,0 

60 POKE 23607,60 

90 NEXT X 


Programa num. 7 

3000 REH SCREENS PARA LOS UDG I 
9010 LET ai*SCREENS <u*x) 

8020 IF **£)»"" THEN RETURN 
8025 LET a«PEEK 23606: LET b*PEE 
K 23607 

8030 POKE 23606,PEEK 23675 
3040 POKE 23607,PEEK 23676-1 


8050 LET a*»SCREEN* 
8060 IF aío"” THEN 
(CODE al+112) 

8070 POKE 23606 ,4 
8080 POKE 23607,b 
8090 RETURN 


<y ,X> 

LET 4* 


■ CHR* 


807 

808 


m im: 


0 


f 















como lo sería un mapa de memoria de 
algunos ordenadores, una ve/, que se 
imprima algo en la pantalla permane¬ 
ce igual, aunque se cambie d carácter 
de la memoria. De manera que se 
puede alterar temporalmente el pun¬ 
tero del juego de caracteres hacia el 
juego de caracteres definidos por el 
usuario. 

Aunque hay una variable del siste¬ 
ma que dice dónde comienza el juego 
de caracteres definidos por el usuario, 
esta dirección es 256 ó más, por lo 
que se dehe restar 256- Esto significa 
que se debe restar uno del byte más 
alto. El programa 6 muestra cómo 
hacerlo. 

De esta forma se logra que el 
ordenador crea que los nuevos carac¬ 
teres sean los verdaderos. SCREENS 
seguirá produciendo caracteres con el 
código entre 32 y 127 aunque esto se 
puede arreglar trasteando un poco. 
Ya que SCREENS empieza con 
CHRS 32 y el UDG empieza en 144, 
necesita sumar 112 para devolver el 
juego de caracteres situados en la 
/ona de los UDG. 

Esta es una forma de hacerlo, Xcs 
Ui coordenada x a través de la panta¬ 
lla. Y ev son las coordenadas vertica¬ 
les que SCREENS tiene que exami¬ 
nar. Primero se chequea con 
SCREENS toda la pantalla en bús¬ 
queda de un carácter que no sea del 
luego normal de caracteres, y si lo hay 
vuelve a SCREENS. 

El carácter en X, Y se guarda en 
Y$. La línea 8025 se necesita sólo si se 
utiliza un juego de caracteres que no 
sea el de la ROM, Si usa los caracteres 
de la ROM, entonces borre las lineas 
8070 y 8080, y sustituyalas por las dos 
lineas inferiores. {Ver programa 7). 

Solamente hay 21 gráficos defini¬ 
dos por el usuario. Si SCREENS no 
encuentra su pareja continuará su 
búsqueda más allá de la zona dedica¬ 
da a los UDG hasta que se salga del 
rango establecido por 32 y 127. Para 
evitar que esto ocurra, aunque los 
UDG se encuentran al final de la 
RAM, se puede añadir la siguiente 
línea: 

6065 IF A$ > CHRS 164 THEN LET 
AS—”” 

Hay que asegurarse que el conteni¬ 
do de 23606/7 siempre apunte hacia 


el juego de caracteres correcto, cuan¬ 
do se ejecuten instrucciones como 
PRINT, LIST. etc. 


23608 (RASP) 

Controla la duración del zumbido 
indicador de que se ha quedado sin 
memoria. Cuando se conecta el apa¬ 
rato esta variable tiene el valor 64. 
Esto se puede alterar pero tiene poco 
sentido, POKE 23608,0 hace que 
suene un c/ick en vez del clásico 
zumbido, sin embargo PüKE 
23608,255 hace sonar un zumbido 
largo que bloquea el teclado evitando 
asi que se introduzca más informa¬ 
ción. 


23609 (PIP> 

Controla la duración del c/ick que 
suena al pulsar una tecla en el modo 
comando (K) o durante un 1NPUT. 
Comienza en cero, pero se puede 
alterar. Cualquier valor entre 30 y 130 
hace que suene un beep. más audible 
en vez del discreto c/ick. Valores 
superiores a 130 hacen disminuir la 
velocidad de respuesta del teclado 
{debido a que no ejecuta hasta que no 
finaliza el heep). El valor más corrien¬ 
te es POKE 23609,100. 


23610 (ERR NE) 

Controla el número que hay al 
producirse un error. Normalmente el 
255, a no ser que se produzca un 
error, cuando esto ocurre el número 
que se almacena es una unidad infe¬ 
rior al que aparece en elmensaje de 
error. Por ejemplo, 4 Out oí Memory 
guardaría un tres. El mensaje de error 
que aparece se halla situado a partir 
de la posición 5010 de la ROM. El 
final del mensaje se detecta al tener el 
séptimo bit del último carácter cam¬ 
biado a uno. Después de los mensajes 
de error aparece ® 1982 Sinclair 
Research Ltd. ál igual que cuando 
conecta el ordenador o utiliza el 
comando NEW. Se puede hacer un 
POKE 23610 para generar un error 
que pare el programa, pero como el 
mensaje es fijo y está en ¡a ROM, 
podríamos acabar con algo ilegible. 


Si se quiere simular el error “Out of 
Memory" para acabar un programa 
basta con hacer POKE 23610,3. Esto 
puede formar parte del programa 
principal colocándolo al final del 
mismo con una de las condiciones 
de fin de programa. 


23611 (FRACS} 

Esta variable contiene varias más¬ 
caras que controlan el BASIC y 
generalmente no se las debe alterar. 
De todo modos algunas máscaras 
pueden ser útiles. 

Bit 0: Si es I indica que no se 
debe poner ningún espacio 
antes del próximo comando. 

Bit I: Si es I, todo lo que apa¬ 
rezca con PRINT ha de vol¬ 
carse hacia la impresora. Un 
cero ¡indica sacarlo por pan¬ 
talla. 

Bit 5: Cualquier tecla pulsada se 
indica por su código almace¬ 
nado en 23560 (la variable del 
sistema LASTK) y el bit quin¬ 
to de 2361 f (FLAGS) se acti¬ 
va para indicar que una tecla 
se ha pulsado. 

Bit 7: Máscara de sintaxis. 

Son más útiles cuando se utilizan 
para programar en código máquina, 

23613/4 (ERR SP} 

Controla las direcciones donde se 
encuentran las pilas de RETURN. 
Intente hacer varios GOSUB sin po¬ 
ner RETURN alguno y compruebe 
este punto en la memoria. Ahora 
puede comprobar lo que ocurre 
cuando se queda sin memoria. Tam¬ 
bién intente hacer un PEER del 
contenido de estas tres direcciones (a 
cuya base apunta 23613/4 para ver 
con qué datos responde. (Ver pro¬ 
grama 8). 

23617 (MODE) 

Especifica el modo de operación. 
Su valor puede ser 0, 1, 2 ó 4, según 
que el cursor sea L/C, E, G o K t 
respectivamente. Haciendo un POKE 
a esta variable afectará al modo del 
cursor. Puede aparecer como una 





letra, número, símbolo o palabra 
clave parpadeante. Esto es más útil en 
una instrucción INPUT. El valor se 
inicializa cuando se necesite, por 
ejemplo, cuando se cambíe el cursor 
desde el teclado. 

Pruebe el programa 9 que realiza 
un POKF. de todos los posibles valo¬ 
res en 23617. La mayoría son varian¬ 
tes de los cuatro modos de trabajo. 


23618/9 NEWPPC Y 23620 NSFPC 

23618/9 es una variable de dos 
bytes que contiene el siguiente núme¬ 
ro de línea a ejecutar. 23618 contiene 
el byte más bajo V 23619 el más alto, 
de manera que para leer el numero de 
línea que contiene hay que hacer 
PEEK 23618 + 256 x PEEK 23619 

Para hacer un POKE de una línea 
determinada, por ejemplo X, se baria 
lo siguiente: 

POKE 23618.X—256 X [NT (X/256) 
POKE 236í9. INT (X/256) 

Con las variables 23618/9 y 23620 
se puede simular el comando GOTO 
hada una línea de nuestro programa 
siempre que haga falta. El GOTO no 
se puede hacer a un lugar determinado 
de una línea con más de una instruc¬ 
ción. 

Para saltar a una instrucción que se 


encuentra dentro de una línea muy 
larga del programa, por ejemplo, la 
cuarta instrucción de la línea X, 
primero habría que hacer todo lo 
descrito anteriormente v luego hacer 
POKE 23620,4 y saltará a dicha 
instrucción. 


23624 (BORDCR) 

Los bits de esta variable controla 
los atributos de la parte inferior de la 
pantalla y el color del RORDER. 
Haciendo varios POKES en esta va¬ 
riable, se puede conseguir que parpa¬ 
dee. brille o una pantalla inferior en 
multicolor, incluso se puede hacer 
que INK y PAPER sean del mismo 
color protegiendo de esa manera los 
programas. También se puede dar 
más brillo a los INPUTS para que 
resalte, s Ver tabla 1 ), 


23627/8 (VARS) 

Apuntan hacia las variables. Ade¬ 
más de encontrar la zona de las 
variables, se puede ver la longitud que 
ocupa un programa con esta expre¬ 
sión. Esta excluye los bytes que ocupa 
la pantalla, las variables del sistema, 
las variables del programa y las pilas: 


Programa num . 8 

10 LET a-PEEK 
3614 

30 PRINT PEEK 
+11;TRB 30;PEEK 


33613+366+PEEK 3 

IjTñB 10iPEEK U 
Ca+2) 


Programa num* ^ 

10 FÜR a*® TO 255 
30 PRINT a 
30 POKE 33617,1 
40 INPUT a« 

50 NEXT « 


111 bvte = PEEK 23627 i- 256 
PEEK 23628 — Pl 1 K 23635 — 
256 x PEEK 23636 


23629/30 (DEST) 

Almacena la dirección de la varia¬ 
ble cuando es asignada. Si es asignada 
antes, apuntará al principio de donde 
está situada la zona de variables. Si es 
definida por primera vez apuntará a 
la dirección del comienzo del nombre 
de la variable en el programa, por 
ejemplo: LET A=5, apuntará a la 
dirección de la letra A. 

También puede ser útil para encon¬ 
trar la dirección de memoria de una 
variable numérica. (Programa 10). 


23631/2 (CHANS) 

Almacena la dirección del comien¬ 
zo del canal de información. 


23633/4 (CHURCHL) 

Almacena la dirección de la infor¬ 
mación de E/S utilizada hasta el 
momento. Normalmente apunta ha¬ 
cia un bloque de 5 bytes durante la 
operación de E/S. Utilice el progra¬ 
ma 11 para examinar los contenidos. 

23655/6 (PROG) 

Contiene la dirección del comienzo 
del programa BASIC. Este apunta al 
primer byte del primer número de 
línea del programa. Puede ser útil a la 
hora de convertir programas a otros 
ordenadores de Sinclair Research con 
información almacenadas en las sen¬ 
tencias REM como primera línea de 
programa. 

Si se quiere asegurar una línea de 
un programa bastará con hacer un 
POKE 0 en los dos primeros bytes del 
número de la línea, al comienzo del 
programa. 


Programa nurn* l® 


23637/8 (NXTL1N) 


10 LET aaS 
20 LET a 

30 PRINT PEEK 33629+256+PEEK 3 
3630 


Guarda la dirección del comienzo 
de la siguiente linea de un programa. 
Esto es útil a la hora de acceder al 















código máquina que se guarda en las 
sentencias REM en cualquier lugar 
del programa, por ejemplo aquellas 
subrutinas que se cargan con la ins¬ 
trucción MERGE desde una bibliote¬ 
ca de programas (Programa II), 

El único problema que puede gene¬ 
rar es si se almacena dentro de una 
sentencia REM el color. 1NK. 
FLASH, BR1GHT pueden dar lugar 
a interpretaciones erróneas por parte 
del C/M. De todos modos si se utiliza 
la librería de subrutinas no habrá 
ningún problema puesto que no lus 
utiliza. 


23639/40 (DATADO) 

Esta variable contiene la dirección 
de la última coma utilizada en una 
sentencia DATA, Si no se ha leído 
nada de la lista (por ejemplo, después 
de RUN) la dirección almacenada en 
23639/40 es la del byte antes dei área 
de programas, normalmente el CHRS 
128 al final del canal de información. 
Para confirmar esto ejecute el pro¬ 
grama !2. 

La dirección almacenada en esta 
variable de 2 bytes puede apuntar ai 
carácter ENTER o a la coma dando a 
entender que ha finalizado una línea 
o sentencia que contiene DATA. 


23641/2 (EUNE) 

Esta variable contiene la dirección 
del área que se encuentra después de 
las variables. Desde aquí se puede 
hacer una idea de lo que ocupan la 
pantalla, las variables del sistema, el 
programa y las variables del progra¬ 
ma, una vez que se ha ejecutado un 
programa fijando las variables. Te¬ 
clee lo siguiente: 

PRIN'T PEER 23641 + 256 X PEEK 
23642 — 16384 

También puede obtener la informa¬ 
ción de la memoria ocupada por las 


variables una vez ejecutado el pro¬ 
grama. Para ello teclee la siguiente 
instrucción: 

PRINT PEEK 23641 + 256 X PEEK 
23642 — PEEK 23627 — 256 X 
PEEK 23628 


23653/4 (STKEND) 

Contiene la dirección donde em¬ 
pieza la memoria libre. Leyendo estos 
bytes puede hacerse tina idea de 
cuánta memoria queda libre restán¬ 
dola de la RAMTOP, Esto no incluirá 
la memoria utilizada para almacenar 
las pilas GOSUB. pero si la longitud 
de ¡as sentencias PEEK. De manera 
que se puede orientar bastante. 

PRINT PEEK 23730 + 256 X PEEK 
23731 — PEEK 23653 - 256 X 

PEEK 23654 


23658 (FLAGS 2) 

Esta variable contiene algunas de 
las máscaras utilizadas por el ordena¬ 
dor para indicar ciertas condiciones. 

La mejor forma de utilizarlo es 
comprobando el bit 3 que informa si 
CAPS LOCK está activado (1) o no 
(0). 

¿Para qué sirve? Si en un programa 
se utiliza para la entrada de datos la 


teda INKEY$ de manera que sólo 
admita las mayúsculas, con esta va¬ 
riable se obliga a la máquina a que 
todo lo que se teclee pueda ser 
entendido. El ordenador no razona 
como los humanos. Para usted es lo 
mismo decir “SI” (con mayúsculas) 
que “sí", pero no para la máquina. Es 
tentador el usar POKE 23658.8 para 
cambiar el estado del cursor y POKE 
23658,0 para volverlo a su estado 
primitivo; por eso es conveniente 
comprobar el estado de las máscaras 
ya que éstas se pueden alterar sin que 
se dé cuenta. Normalmente, si el 
cursor está en el modo L, 23658 
valdrá 0, por lo que no habrá ningún 
problema si se quiere utilizar esta 
variable. 


23659 DF SZ 

Esta variable contiene el número de 
líneas que hay en la parte inferior de 
la pantalla, normalmente utilizada 
para las entradas INPUT o los men¬ 
sajes de error, etc. Normalmente val¬ 
drá dos salvo si tiene INPUTS muy 
extensos. Si hace POKE 23659,0 para 
limpiar la parte inferior de la pantalla 
y así utilizar el juego completo de las 
24 líneas, lo único que conseguirá es 
que el sistema se venga abajo y se 
bloquee. 

Sin embargo esto se puede hacer 


w y i <■ m « m u ni i 


_ 1 POR X«0 TQ 3: PRINT fl»; peek 

«ule 1 !t5p EEI ' S3SJ * ; next X: p 

23307 


Programa nui», 12 

9000 LET a *USR (PEEK 23637+2S6«P 
EEK 23638+5) 

0010 REM Codigo Maquina 
9020 RETURN 


1 


TABLA- 1 


BIT 7 

BIT6 

BIT 5 BIT 4 BIT 3 

BIT 2 BIT 1 BIT 0 

FLASH 

BRIGHT 

BOROER Y PAPER 

II M K 



















con algunas restricciones. Estas son 
que hay que restablecer el valor de 
esta variable antes de hacer cualquier 
uso de ella, de manera que hacer un 
BREAR en un programa puede ser 
catastrófico. También errores gene¬ 
rados a lo largo del programa tendrán 
el mismo efecto, ya que los mensajes 
de error aparecen en dicha zona de la 
pantalla. El programa 13 ilustra lo 
dicho hasta ahora. Se pueden utilizar 
las dos líneas inferiores, la 23 y 24, 
con las instrucciones PRJHT v 
PRINT TAB. pero no puede hacer 
PLOT. DRÁW o PRINT AT. más allá 
de Ijj línea 22. La pantalla se restable¬ 
ce haciendo POKE 23659,2 dentro del 
programa. 

Para demostrar la clase de error 
que se puede generar, se puede "pro¬ 
ducir’'' un error añadiendo la siguien¬ 
te linea: 

45 PRINT error 

Si se quiere utilizar las últimas 
líneas de la pantalla, lo mejor es usar 
la instrucción PRINT ff 1; “texto” 
qve funciona tan bien o mejor, que 
utilizando esta variable. Si cambia el 
valor de la variable por uno superior 
a dos, la parte superior de la pantalla 
se verá reducida más de lo normal. 
De manera que después de hacer 
POKE 23569.Y, la parte superior de 
la pantalla tendrá 24-Y filas y hará un 
scroll cuando la posición de PRINT 
llegue más allá de 24-Y.O. 

El programa 14 demostrará cómo 
se puede mantener un scroll de la 
pantalla con la variable DF SZ y SCR 
CT. Aquí aparecen números aleato¬ 
rios y hace un scroll de 14 líneas de la 
pantalla. 

23670/1 (SEED) 

Cuando se utiliza un número con la 
instrucción RANDOMIZE, ese nú¬ 
mero es almacenado en esta variable. 
Este es el número que determina el 
siguiente número aleatorio. Cono¬ 
ciendo esto, se tiene la posibilidad de 
poder hacer "trampas”, ya que se 
puede prefijar el número a salir en la 
próxima "tirada”. 

23672/3/4 (FRAMES) 

Este es un contador de pantallas 
que se puede utilizar como cronóme¬ 


tro. Cuenta pantallas de TV e incre¬ 
menta 50 veces por segundo. Aunque 
el tiempo que tarda en leer y evaluar 
estos tres bytes de! reloj no permite 
que sea exacto. Tiene un límite má¬ 
ximo de cuatro días (unos tres días y 
21 3/4 horas). El manual del Spec- 
trum (capítulo 18) comenta que se 
necesita leer los valores de estos tres 
bytes dos veces consecutivas y coger 
el valor más alto de las dos lecturas 
para mayor seguridad. Hay que re¬ 
calcar que el orden de los bytes es el 
inverso al que se está acostumbrado. 
El byte más significativo es el 23674. 
de manera que el valor del reloj hay 
que leerlo de la siguiente forma: 

65636 X PEER 23674 + 256 X PEER 
23673 + PEER 23672 

el cual contestará con el valor del 
tiempo en 1/50 de segundos. 

Hay varias cosas que afectan la 
exactitud de este reloj: el comando 
BEEP para el reloj; la impresora y la 
gradora, etc., también afectan a dicha 
exactitud. Sin embargo. PAUSE no 
afecta en absoluto al correcto funcio¬ 
namiento del reloj. 


23675/6 (UDG) 

La dirección de comienzo de los 
gráficos definidas por el usuario 
normalmente es 32000 en el Spectrum 
de 16R o 65368 en el de 48K. Este 
número es el mismo que el de USR 
"a”, de manera que PRINT USR “a” 
se corresponde con: 


PRTNT PEER 23675 + 256 X PEER 
23676 

Los fanáticos del POKE se pueden 
divertir con esta variable. El manual 
aconseja cambiar esto para ahorrar 
espacio al tener menos gráficos defi¬ 
nidos por el usuario. También se 
puede hacer todo lo contrario, es 
decir, establecer un juego de gráficos 
definidos aunque sólo se puedan uti¬ 
lizar un juego de 21 UDG a la vez. 
Recuerde que como se pueden hacer 
21 UDG es necesario reservar 21X8 
(¡68) bytes para cada juego separado 
de UDG y hacer un POKE del . 
comienzo del juego de caracteres en la 
variable 23675/6. 

Para divertirse teclee el siguiente 
comando: 

POKE 23675,96 : POKE 23676,127 
(Spectrum 16R) 

POKE 23675, 96 : POKE 23676,255 
(Spectrum 48K) 

Entonces usando el juego de gráfi¬ 
cos definidos por el usuario, intente 
teclear cualquier mensaje... ¡ya verá 
lo que ocurre! 

Sólo le daremos una pista, ”,.j vez 
que establezca el juego de UDG 
guárdelo en cinta. La mayoría de los 
usuarios hacen algo parecido a SAVE 
"carite* CODE 32600.168. Esto está 
bien, pero obliga a especificar la 
dirección del comienzo del juego de 
UDG. También se puede hacer SAVE 
"carac” CODE (PEER 23675 + 256 X 
PEEK 23676), 168 y ya puede guardar 


Programa num, 13 

10 DRTA i"4”i"5" 

20 LET a«PEEK 23639+256*PEEK 2 
364Q 

30 PRINT ajTRB 9/PEEK a iTRB 1© 
;CHR« PEEK a AND PEEK a>31 
40 REAO bi 
50 GO TO 20 


Programa num. 14 

10 POKE 23659,0 
20 FüR a-0 TO 23 
30 PRINT a 
40 NEXT a 
50 PRUSE 0 
60 POKE 23659,2 











el actúa! juego de gráficos que haya 
definido en cinta sin preocuparse de 
la dirección de donde empieza. Esto 
por ejemplo, permite cargar un juego 
de caracteres que se haya definido en 
un Spectrum de 16K a otro de 48K sin 
tener que conocer las direcciones. 

Para cargar un juego de UDG en 
otra máquina con distinta memoria 
basta con hacer 

LOAD “carao" CODE (PEER 23675 
+ 256 X PEER 23676), 168 

Esto automáticamente re local i zara 
los datos en la dirección correcta, 
para que la máquina haga uso de dios 
cuando los necesite. Esto sería lo 
mismo que LOAD “carac" CODE 
USR “a”, pero lo único que ahorra es 
el teclear tanto. 


más alto de la dirección del buffer de 
LPRINT. Este se puede variar a gusto 
dd programador, pero si se utiliza la 
impresora se volverá a rcmieializar a 
91. 23680 y 23681 juntas contienen la 
dirección de la posición de LPRINT 
dentro del bulfer de la impresora. No 
afectará de ninguna manera si se hace 
algún POKE a la impresora, pero 
cualquier cosa que se le almacene se 
borrará si se utiliza la impresora. 

23677/8 (COORDS) 

23677 es la variable que contiene la 
coordenada x del último punto 
PLOT, Después de hacer CLS co¬ 
mienza en cero y 23678 es la variable 
que contiene la coordenada Y del 


23688/9 (SPOSN) 


23688 contiene información acerca 
de hasta donde ha llegado la senten¬ 
cia PRINT en la pantalla. Comienza 
en 33 a la izquierda de la pantalla y va 
decreciendo en una unidad cada vez 
que la posición PRINT se dirige a la 
derecha. Después de utilizar la ins¬ 
trucción RPINT AT X.Y (si X e Y 
son coordenadas válidas) 23688 al¬ 
macenará el valor 33—X. Esto puede 
servir para evitar que las palabras se 
corten al final de una línea de forma 
poco ortodoxa, Imagínese que el nú- 
mero contenido en 23688 va descon¬ 
tando hacia cero según se va llenando 
la línea, podemos ver que comparan¬ 
do esto con la longitud de la palabra a 


TABLA- 2 


BIT 7 

bit e 

BIT 5 

BIT 4 

BIT 3 

BIT 2 

BIT 1 

BIT 0 

PAPER 9 

PAPER 9 

INK 9 

INK 9 

INVERSE 1 

INVERSE 1 

OVER 1 

OVER 1 

p erraron. 

temp 

per mora. 

temp. 

peonan 

temp. 

per mor». 

temp. 


23679 (P POSN) 

Contiene ia información acerca de 
ia longitud que tiene que recorrer la 
instrucción LPRINT en el buffer de 
impresora. No se puede variar el 
contenido con POKE, 

23680 (PRCC) 

Contiene el byte más bajo de la 
dirección a donde irá situado el si¬ 
guiente carácter en el buffer de la 
impresora, si es cero irá situado en la 
columna izquierda, 15 si va en la 
columna 15, etc. Como esta es la 
dirección de la línea superior de cada 
carácter, se puede variar (POKE) 
para cambiar la posición LPRINT en 
el buffer siempre y cuando se cambie 
a su vez el valor situado en la variable 
P POSN (23679) para igualarlo. 

23681, Variable del sistema sin asignar 

Esta variable aunque no se utiliza, 
siempre contiene 91. Esto es el byte 


último punto PLOT. Contiene el 
valor actual, de manera que si el 
último punto PLOT tenía como 
coordenadas 3,3 ambos bytes alma¬ 
cenarán un tres. 

Estos valores se les puede variar 
con POKE, ya que ello implica el 
dibujar dicha coordenada en panta¬ 
lla. Esta es una manera de mover el 
cursor PLOT alrededor de la panta¬ 
lla. Esto se puede hacer mediante la 
instrucción 

PLOT O VER l; X, Y: PLOT OVER 
1; X,Y 

pero seria un poco engorroso. 


23684/5 (DF CC) 

Almacena la dirección dd fichero 
de salida de ia posición PRINT, Se le 
puede variar para mandar los PRINT 
hacia otra dirección, aunque esto 
requiere una cierta preparación de 
cómo está organizada la pantalla. 


escribir se puede saber si la palabra 
cabe en esa línea o hará falta saltar a 
la siguiente para evitar que la palabra 
sea cortada en el momento de que 
23688 valga cero. Supongamos que la 
palabra a escribir sea W$, la instruc¬ 
ción sería la siguiente: 

IF PEEK 23688 < LEN W$ +1 
THEN PRINT 

Esto sólo funciona con palabras 
cuya longitud sea inferior a 32 carac¬ 
teres. 

23689 contiene la información rela¬ 
tiva al número de líneas que le queda 
por rellenar en la pantalla. El valor 
inicial es 24 que es el de la línea 
superior de la pantalla y decrece en 
una unidad según se va bajando por 
la pantalla. Si en vez de querer hacer 
un scroll cada vez que se llega a la 
parte inferior de la pantalla, lo que 
quiere es limpiarla, bastará con hacer 
la siguiente instrucción: 

IF PEEK 23689 - 3 THEN CLS 




















23692 (SCR CT) 

Contiene el número de scrolLs que 
tiene que hacer más uno antes de 
preguntar sí hace otro scrolL En los 
juegos gráficos esto puede generar 
problemas, ya que no interesa esperar 
tiempo de respuesta. De manera que 
si en la variable 23692 se almacena 
cualquier número que no sea uno, no 
hay tiempo de espera. Por lo que con 
PÓKE 23692,253 el ordenador escri¬ 
birá 255 líneas en la pantalla antes de 
preguntar si hace un scrolL 


23693 (ATTR 0) 

Contiene los atributos permanentes 
o los atributos globales. Colores par¬ 
ticulares en las sentencias PRINT se 
manejar,.' i en otra parte. La mayoría 
de las rutinas de la ROM utilizan los 
va lores de la variable del sistema con 
un valor temporal, va que éstos con¬ 
tienen unos atributos permanentes a 
no ser que se varíen. CLS limpia la 
pantalla y la pone como establezca la 
variable ATTR P. La función de los 
bits es la siguiente: 

Bit 7: I cuando FLASH es l. 

Bit 7: 0 cuando FLASH es 0. 

Bit 6: I cuando BRIGHT es 1. 

Bit ó: 0 cuando BRIGHT es 0. 

Bits 5, 4 y 3 contienen el color del 
papel en binario, por ejemplo, para 
PAPER 7, los bits 5, 4 y 3 valdrán 
todos 1, 

Bits 2, i y 0 contienen el valor de !NK 
en binario, al igual que PAPER. 

Atributos como e! 8 y el 9 no se 
manejan con esta variable. Si el valor 
del atributo fuera 8 ó 9, entonces los 
valores establecidos por esta variable 
no serían válidos. 


esa característica. O si se quiere puede 
hacer una sobreimpresión del carác¬ 
ter en la pantalla dejando los atribu¬ 
tos tal y como están. (Ver tabla 2). 
Bu 7: 1 cuando FLASH 8 está acti¬ 
vado. 

Bit 6: I cuando BRIGHT 8 está 
activado. 

Bits 5, 4 v 3 valen todos 1 cuando 
PAPER es 8, 

Bits 2, I v 0 valen todos 1 cuando 
INK es 8.' 

23695 (ATTR T) 

Esta variable contiene el valor ac¬ 
tual del color establecido por una 
sentencia PRINT. Esto lo puede ver 
por sí solo con las siguientes instruc¬ 
ciones: 

PRINT PEER 23695 

PRINT INK 7: PAPER 0; PEEK 

23695 

Esto es, se incluye el comando 
PEEK en la instrucción PRINT bajo 
el efecto de un color de tinta. Nor¬ 
malmente, a no ser que se especifi¬ 
quen valores particulares, esta varia¬ 
ble almacenará el valor global del 
color. Los atributos utilizados para 
imprimir se toman de esta variable y 
las cosas se equilibran de manera que 
la única diferencia entre las variables 
ATTR T y ATTR P es que en aquella 
los valores de los atributos decrecen. 


23696 (MASK T) 

Es similar a la variable MASK P 
(23694) excepto que los parámetros 
aquí son temporales, Normalmente el 


mismo que el parámetro permanente 
de ocho, éste cambia mientras los 
colores locales, etc, efectúan su come¬ 
tido. Se verá con más facilidad con el 
siguiente comando directo: 

PRINT PEEK 23696, INK 8: PEEK 
23696, INK 0: FLASH 8: PEEK 
23696 

Los bits individuales tienen las fun¬ 
ciones que se ilustran en la tabla 5, 


23697 (P I LA(íS) 

Esta variable contiene las máscaras 
necesarias utilizadas durante el pro¬ 
ceso de imprimir. Especificando PA¬ 
PER 9 los bits 6 y 7 son puestos a 1. 
Con INK 9 son puestos a 1 los bits 4 y 
5. Con INVFRSE ) los bits 2 y 3 son 
puestos a I. Y después de que se 
especifique OVER l se ponen a I 
los bits 0 y 1. Los efectos son perma¬ 
nentes si se ponen a ! los bits 
impares y temporales si se ponen a 1 
los hits pares. (Ver tabla 6), 


23681/23728/9 

Estos tres bytes no se suelen utilizar 
por el Spectrum. Pueden ser utiliza¬ 
das en los programas par almacenar 
información que interese. Estos bytes 
son muy útiles a la hora de programar 
en lenguaje máquina pudiendo acce¬ 
der a ellos directamente en vez de 
buscar la variable en el área de las 
variables. 23728/9 se pretendían utili¬ 
zar para interrupciones sin máscara, 
pero éstas no existen en el Spectrum. 


23694 (MASK P) 

Esta variable ayuda al Spectrum a 
determinar el atributo de cualquier 
parámetro cuyo valor sea ocho. De 
manera que sí especifica BRIGHT 8 
global mente, el bit 6 de 23694 valdría 
uno para recordarle a la máquina en 
el futuro que BRIGHT 8 ha sido 
especificado. Para determinar el co¬ 
lor /flash/bright cuando se imprimen 
mensajes el ordenador comprueba lo 
que hay allí e imprime la palabra con 


Programa num. 15 

10 POKE 23692,0: POKE 23659,10 
20 PRINT RND 
30 GO TO 10 


Programa num* 16 
10 INK e 

20 POKE 23694,BIN 00000011 
30 PRINT RT 0,0; INK 5,“555555 


5 M 


40 PRINT RT 0,0; M lili" 













TABLA- 3 


BIT 7 

BIT 6 

BIT 5 

BIT 4 

BIT 3 

BIT 2 

BIT 1 

BIT 0 

FLASH 8 

Temp 

BRIGHT 8 

T emp. 

■ 

PAPER 8 

Temp. 



INK 8 

Temp 



23730/1 (RAMTOP) 

1 


Esta variable de dos hvtés apunta 
« hacia el último bvte de la RAM dd 
atea del BASIC, Esta no indica el 
Imal de la memoria un I i/a da por el 
BASIC en el sentido de que los UDG 
normalmente se almacenan por enci¬ 
ma de esta dirección. Si se sube la 
RAMTOP por encima de la /una 
dedicada a los UDG se pueden perder 
éstos, pero a su vez se ganará memo¬ 
ria, que puede ser útil sobre todo para 


aquellos usuarios con el Speetrum de 
16 K. 

Un punto importante es que el 
comando NEW opera hasta la zona 
de memoria indicada por la variable 
27320/L de manera que se puede 
almacenar D ATAS en estas direccio¬ 
nes para que sean utilizadas por 
distintos programas. 


23732/3 (RAMPT) 

Finalmente, esta variable contiene 


la dirección donde acaba la RAM del 
Speetrum, Si se adquiere un Speetrum 
cuya capacidad de memoria nos es 
desconocida, no hay por que mirar 
sus interioridades, bastará con teclear 
el siguiente comando: 

PR1NT PEEK 23732 + 256 X PEEK 
23733 — 16384 

Los 16384 bytes restados son para 
la ROM, ya que la RAM comienza a 
partir de esta dirección y va hasta la 
dirección indicada por la variable 
almacenada en P RAMT. 


SUSCRIBASE A 

lodospectrun 

(12 NUMEROS) 




ESPAÑA . 

EUROPA. MARRUECOS. TUNEZ 
TURQUIA ARGELIA Y CHIPRE 
COSTA RICA CUBA CHILE PA¬ 
RAGUAY Y REP DOMINICANA 
GIBRALTAR Y PORTUGAL 
FILIPINAS 

RESTO DEL MUNDO . 



TARIFA DE PRECIOS DE SUSCRIPCION 


CORREO CORREO CORREO ! CORREO 

ORDINARIO CERTIFICADO AEREO AEREO-CERTI 

“- * --- 1 -- —t -. . - 


PIAS 

S 

PT AS 

S 

PT AS 

S 

PTAS 

S 

3.000 

-21 

3.273 

23 

3.055 

22 

3.333 

24 

3.456 

25 

4.272 

31 

3.600 

26 

4.418 

31 

3.396 

24 

4.212 

30 

4.164 

30 

4,980 

36 

3.264 

23 

4.080 

29 

3.149 

22 

3.965 

28 

3.264 

23 

3.540 

25 | 

.3.775 

27 

4.050 

29 

3.456 

25 

4.272 

31 

4,224 

30 

5.040 

36 


F 
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E terreno de la informática 
es aún muy reciente, y como 
ocurre siempre en estos casos 
existen muchas lagunas lega- 
les por cubrir. Una de estas 
ausencias más importantes y reitera¬ 
damente destacadas por los profesio¬ 
nales de la informática es la ausencia 
de leyes de protección de software. 
Las medidas de protección de la 
propiedad intelectual actuales son tan 
obsoletas como inoperantes. Ante 
esta situación tos "ingenieros del 
software" investigan nuevos proce¬ 
dimientos y nuevas combinaciones 
hardware-software para evitar, o al 
menor complicar, la piratería de su 
trabajo. 

En ocasiones lleva mclusoa nuevos 
procedimientos comerciales. En el 
lanzamiento del nuevo QL, Sinclair 
inelu .e en su precio cuatro potentes 
programas desarrollados por Psion, 
consciente de que de otra forma las 
copias serían inevitables (y esto en un 
país como Inglaterra donde el control 
de la propiedad intelectual está bas¬ 
tante regulado). 

Ningún procedimiento de protec¬ 
ción es totalmente infalible, lo que 
lleva a una espiral de sofisticación 
constante de estos procedimientos. 
Esperamos con este articulo poner 
algunos de estos medios en sus manos 
para que también usted pueda prote¬ 
ger sus propios programas. Algunas 
de estas técnicas son utilizadas co¬ 
múnmente por los profesionales del 
software. 

El primer problema empieza con la 
carga de programas. Si el programa 
no empieza a ejecutarse automática- 
mente ser£ imposible evitar que el 
usuaria introduzca el comando SA- 
VE. Para ello el Spectrum dispone de 
la instrucción SA VE “nombre” LINE 
XXXX con la que el programa car¬ 
gado se ejecuta inmediatamente a 
partir de la línea especificada. Este es 
sólo un primer paso, bastante inútil, 
si es el único, pues el Spectrum 
también tiene la instrucción MERGE 
con la que poder coger un programa a 
fin de unirlo a otro, que nunca será 
ejecutado, aunque hubiese sido gra¬ 
bado utilizando la instrucción LINE, 
Sinclair ha mejorado este aspecto con 
el lanzamiento de los Microdrive , con 
los que no es posible utilizar MERGE 
con aquellos programas en que se 
utilizó la opción LINE, Pero con la 
cinta sí es posible, 

A primera vista puede parecer que 
SAVE ^nombre” LINE es la única 
forma de lograr que el programa se 


ejecute inmediatamente después de 
haberse cargado. Examinando los 
programas comerciales puede com¬ 
probarse que programas grabados en 
código máquina también se ejecutan 
de forma automática. El Spectrum 
permite grabar cualquier área de 
memoria con la instrucción SAVE 
“nombre" CODE, COMIENZO, 
NUMERO BYTES, Grabando toda 


la información contenida en la RAM 
se graba el programa en BASIC. 
Cuando se efectúe la carga de los 
bytes grabados, el ordenador estará 
en idéntica situación a cuando se 
efectuó la grabación. El Spectrum 
almacena e¡ BASIC en un área de 
memoria que dispone al efecto, utili¬ 
zando 180 bytes para descripción del 
programa {variables utilizadas, pri- 












mera instrucción a ejecutar, etc*). El 
siguiente programa quedará grabado 
de esta forma. Ejecútelo, desconecte 
su ordenador o introduzca la instruc¬ 
ción RANDOM1ZE USR 0 y cargue 
el programa (LOAD “DEMO".,,) 
¡00 PRINT “Antes del SAVE" 

E10 SAVE “DEMO" CODE 23552, 
1500 

120 PRINT “Después de SAVE" 

130 GOTO 120 

Como verá, acabamos de encontrar 
otra forma de que un programa en 
BASIC se auto-ejecute sin necesidad 
de recurrir al comando L1NE, evitan¬ 
do el uso de MERGE. De hecho esta 
es una técnica ampliamente utilizada 
en el software comercial. 

Cambiando el valor 23552 por 
16384 en la linea 110 se logra grabar 
el programa en BASIC y la imagen de 
ki pantalla en el momento de efectuar 
la grabación, obteniéndose poste¬ 
riormente el gráfico con gran rapidez. 

Desgraciadamente aún es posible 
entrar en el listado, pero es más 
difícil, sobre todo si es largo. El 
comando LOAD “nombre" CODE 
permite especificar una nueva locali¬ 
zación de memoria a la que entrar 
posteriormente. Lógicamente, es más 
difícil en un Spectrum de 16 K, 

Además, otro de los inconvenientes 
de utilizar este procedimiento es la 
imposibilidad de verificar la graba¬ 
ción. ya que el comando VERI F Y 
siempre nos dará error, aun cuando la 
grabación haya sido correcta. Esto es 
debido a la grabación de datos que 
están continuamente cambiando, 
como por ejemplo el reloj. Algunos 
programadores utilizan esto para 
descubrir las copias. Conociendo el 
‘valor del reloj en el momento de la 
grabación se puede después comparar 
cuando en el programa se ejecute. 
Una pequeña diferencia evidencia la 
existencia de una copia y el programa 
se autodestruye. Pero tampoco esto es 
infalible: una vez que se logra entrar 
en el listado, sólo hay que encontrar 
la instrucción que busca el valor del 
reloj, es decir, buscar el valor 32673 y 
producir un salto sobre esta instruc¬ 
ción. El capítulo 18 del manual ofrece 
un buen ejemplo sobre el uso del 
reloj. 

Pero no nos desanimemos por ello. 
Otra posibilidad estriba en eliminar la 
comunicación con el usuario o, lo que 
es lo mismo, en desactivar el teclado. 
El Spectrum comprueba si es presio¬ 
nada alguna tecla, entre otras cosas, 
50 veces por segundo. Si elímir .mos 
este control, eliminaremos la posibi¬ 


lidad de interrumpir el programa al 
mismo tiempo que se logrará que éste 
vaya más rápido. Veamos cómo: 


100 POKE 23296,243 
110 POKE 23297,201 
120 RANDOM1ZE USR 23296 


Pero recordemos que el reloj es 
para e! Spectrum lo que el corazón 
para las personas: no puede vivir sin 
él. El ordenador no responderá cuan¬ 
do se presione alguna teda, con la 
excepción del comando INKEYS. In¬ 
troduzca dos líneas más al programa 
antes de ejecutarlo: 

130 PRINT INKEYS 
140 GOTO 130 

Este pequeño truco puede ser inte¬ 
resante, pero ha de utilizarse con 
precaución. Existen además determi¬ 
nadas funciones que son controladas 
por el reloj. Por ejemplo, BEEP, 
SAVE o COPY, que lógicamente no 
podrían llevarse a cabo si se le de¬ 
sactiva. La principal ventaja que 
ofrece es de rapidez, al evitarse que el 
ordenador compruebe 50 veces por 
segundo si alguna tecla ha sido pre¬ 
sionada. 

Si seguimos investigando la forma 
en que podemos evitar que alguien 
acceda al listado, pronto pensaremos 
en la posibilidad de evitar el uso de la 
tecla BREAK o, al menos, hacer que 
funcione de otro modo. Tanto el 
mensaje de BREAK como STOP son 
tratados por el Spectrum como un 
error. Veamos cómo trata el Spec- 
trum a los errores. 

La variable del sistema ERR-SP 
(dirección 23613-4) se encarga de los 
errores. Realmente en esta dirección 
se incluye la dirección de otra locali¬ 
zación a la que el ordenador saltará 
para el oportuno mensaje de error. 
¿Ha pensado ya que ocurriría si 
cambiásemos este valor? El siguiente 
programa obliga a b i fu rea r a la direc¬ 
ción 0 cuando ocurra un error, con lo 
que se autodestruirá el programa 

100 POKE 23613,2 
NO POKE 23614,91 
120 POKE 23298,0 
130 POKE 23299,0 
140 PRINT "? n ; 

150 GOTO 140 


El programa dírecciona ERR-SP 
hacia las direcciones 23298 y 23299, 


normalmente utilizadas por la impre¬ 
sora donde se ha colocado la nueva 
dirección (O). También puede elegir 
otras direcciones distintas del buffer 
de la impresora y otras bifurcaciones 
distintas de cero. Si siempre desea el 
salto al inicio de la ROM (dirección 0) 
puede referendario directamente a 
una posición de memoria que bifur¬ 
que a 0: 

100 POKE 23613,4 
110 POKE 23614,61 



Pero tampoco este método resulta 
del todo infalible. La variable del 
sistema ERR-SP puede ser alterada 
según el desarrollo del programa. 
Comandos como RUN, GGSUB, 
RETURN o CLEAR cambian su 
valor, por lo que ha de elegir entre no 
utilizarlos o buscar otro método. No 
obstante, este método puede resultar 
bastante eficaz en pequeñas rutinas. 

El Spectrum tiene un display muy 
original* dividiendo la pantalla en dos 
zonas. La parte superior donde apa¬ 
recen los textos y gráficos y la parte 
inferior para la introducción de datos 
y mensajes de error. Es fácil deducir 
que si se elimina esta segunda parte el 
programa podrá seguir trabajando 
sin que se altere y sin que, por tanto, 
se pueda hacer uso del comando 
SAVE que necesariamente pasaría 
por la zona inferior de la pantalla. 































En la dirección 23659 se encuentra 
la variable DF-SZ. Según informa el 
manual se utiliza para almacenar el 
número de líneas de dicha zona, 
normalmente dos o más. Colocar un 
cero { POKE 23659,0) en un programa 
es lo mismo que eliminar esta zona. 
Una vez más impedimos la interrup¬ 
ción del programa al presionar 
RRFAK. pues el ordenador quedará 
confundido (léase bloqueado) al no 
tener líneas libres en pantalla para 
mostrar el mensaje correspondiente. 
El único problema es que afecta a los 
comandos CLS y BORDER, pues 
ambos inciden en las dos zonas de 
impresión de la pantalla. Al intentar 
usar uno de estos dos comandos el 
ordenador quedará bloqueado. Pue¬ 
de pensarse en desbloquear antes de 
utilizar estas instrucciones \ volver i\ 
bloquear después, pero resultaría ox¬ 
ees i va til ente ted i o s o. A f or t u n a da - 
mente no es difícil desarrollar una 
rutina que simule los efectos de 
BORDER v CLS: 

8000 O VER O: INVERSE O 
8010 FOR Y=0 TO 21 
8020 PRINT AT Y. G, ( 

8030 NEXT Y 

8040 RETURN 

8100 LET C=BORD*K 

8110 FOR Y==23232 TO 23295 

8120 POKE Y, C 



8130 NEXT Y 

8140 OUT 254,BORD 

8150 IF C<=32 TU EN LETOC T7 

8160 POKE 23624,C 

8170 RETURN 

Fn vez de usar CLS y BORDER 
puede utilizar GOSUR 8000 y GO- 
SUB 8100, respectivamente. 


La primera rutina es bastante sen¬ 
cilla e ingeniosa, eliminando la in¬ 
formación de cada posición, pero 
dejando el color existente. Las dos 
comas del final de la línea 8020 
permiten ‘"barrer" los 32 caracteres 
por línea <16 caracteres cada línea). 

La segunda subrutina no es tan 
sencilla. Primero realiza una conver¬ 
sión del color al código correspon¬ 
diente, de acuerdo a la tabla de 
atributos descrita en el manual. Este 
valor se almacena. El siguiente paso 
es cambiar el color del BORDER. 
Para ello la línea 8 140 envía un nuevo z 
valor de la ULA. Después, con ayuda 
de la variable del sistema BORDER 
(posición 23624) y de la línea 8160 
colocamos el nuevo color. 

Este método es de los más utiliza¬ 
dos ya que no presenta demasiados 
problemas, como veíamos con los 
anteriores. 

Sea cual sea el método elegido, 
todo programa puede ser copiado. En 
el terreno de la duplicación dei soft¬ 
ware existen dos procedimientos: co¬ 
pia del cassette a cassette y copia bit a 
bit. 


CASSETTE A CASSETTE 

Es un proceso simple en el que el 
único requisito es disponer de dos 


LO QUE OPINAN LAS CASAS COMERCIALES 


L a realización de un buen 
programa comercial no termi¬ 
na con ¡a verificación de su 
correcto funcionamiento. Pos- 
terformen te habrá de dotársele 
de las últimas innovaciones en materia 
de software de protección. Siempre hay 
alguien que logra vencer los obstáculos 
más difíciles, entrándose en una espiral 
que lleva a una enorme sofisticación en 
los dispositivos de protección emplea¬ 
dos . El uso del cassette ha permitido 
una gran difusión de la informática al 
ser un medio económico para almace¬ 
namiento de programas, pero se vuelve 
ahora contra sus creadores, quienes no 
ven soluciones claras al problema de la 
piratería del software distribuido en 
cassettes , Así nos lo contaba José Luis 
Domínguez, Director Gerente de In- 
descomp r una de las pocas casas de 
software que realizan programas para 
el Spectrum reconocidos internacio¬ 


nal mente. “Es un problema de muy 
difícil solución Los ingleses —que son 
los grandes maestros — no han conse¬ 
guido resolver el problema, hasta tal 
punto que ya han quebrado varias 
empresas, ** 


“Hemos estado seis meses 
intentando que la gente enten¬ 
diera que es el software.” 


El mercado español todavía no está 
lo suficientemente desarrollado , Es por 
ello que la típica piratería industrial 
todavía no haya entrado o al menos 
José Luis no está muy convencido de 
que llegue por el momento. “En Ingla¬ 
terra sí merece la pena fusilar los best- 
seller porque hay un mercado muy 


amplio. De uno de nuestros programas 
—El Fred — aparecieron 30.000 copias 
en un almacén , y esto es sólo lo que se r 
localiza esporádicamente, También sa¬ 
bemos que hay algunos comerciantes 
que hacen copias de juegos para rega¬ 
larlos con ¡a venta de los Spectrum, 
pero eso no nos preocupa. Lo realmen¬ 
te preocupante es la piratería del 
aficionado. Un chaval se compra el 
Bug ah oo Y se lo lleva al colegio v se 
hacen diez copias. Está claro que esos 
diez chavales eran diez potenciales 
compradores de esa cinta y ahora no lo 
son. Es un problema que en el futuro se 
va a plantear muy 'seriamente'*. 

Desde el punto de visia legal poco o 
nada se puede hacer. En Inglaterra ha 
hay varias asociaciones para luchar y 
combatir ¡a piratería. En España to¬ 
davía hay que vérselas con el funcio¬ 
nario de turno para tratar de explicarle 
lo de la propiedad intelectual como 










metiese para grabar directamente 
de uno a otro como si del éxito del 
Ultimo single se tratase. Los expertos 
en La materia aseguran que cuanto 
peores son los cassettes, mejor. Pero 
h verdad es que la calidad deja 
mucho que desear. 

BIT A BIT 


i Es un secreto a voces la existencia 
de un programa llamado 'ia llave" 
por aquello de que abre todas las 
cintas. Se trata de un programa que 
lee datos de una cinta sin interpre¬ 
tarlos. Los primeros bits suelen de¬ 
terminar el tipo de programa, su 
^nombre, etc. Después siguen todos 
los que configuran el programa. De 
esta forma se logra una copia tan 
perfecta como el original. 


CONCLUSION 

Esperamos que este artículo le haya 
sido útil para proteger sus programas 
adecuadamente, aunque nos tememos 
que será igual de útil a aquellos cuya 
afición favorita es desproLeger pro¬ 
gramas. En cualquier caso, la polémi¬ 
ca sobre la protección de propiedad 
intelectual está por empezar y sólo se 
nos ocurre un medio infalible para 
evitar las copias: el abaratamiento del 
software. 
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CUÑNTO TE Hh crido 


m contaba anecdóticamente: "Nos 
hemos vuelto locos durante seis sema- 
'm para registrar la propiedad inte¬ 
lectual, tratando de hacerles entender 
qué era eso del software". La ley 
¡legará con retraso, como siempre. 
Mientras tamo los ingenieros del soft¬ 
ware ponen a prueba sus neuronas para 
la realización de nuevas rutinas. "Uti¬ 
lizamos subrutinas en código máquina 
que hacen que sea muy difícil abrirlo. 
Pero siempre hay alguien que inventa 
una rutina que destruye la rutina 
anterior. En una ocasión hicimos un 
cassette especial, cortando la cima en 
una medida exacta. Ai llegar ai final 
quedaba una instrucción que saltaba, 
pero tampoco era ésta la solución. 
Realmente no hay soluciones válidas 
mientras se traba fe con cassette". Con 
el microdrive se podrán conseguir me¬ 
jores sistemas de protección, pero su 
precio no parece apuntar a un amplio 


sector del mercado. La cosa parece 
clara, hay que utilizar un sistema 
distinto al cassette, pero que no resulte 
tan caro como el microdrive. José Luis 
nos revelaba su secreto: "Tenemos ya 


“O se busca una solución 
concreta o la industria del pro¬ 
grama en cassette va a correr 
un grave peligro.” 


un prototipo de cariucho que estamos 
desarrollando con una empresa ameri¬ 
cana y que esperamos presentar en 
noviembre. Será un poco más caro que 
la cinta, pero podrá competir con ella y 
con las ventajas de un cartucho (carga 
inmediata, evitar piratería , etc.). Se 
trata de un cartucho muy especial, pues 


se podrán cargar en ellos nuevos pro¬ 
gramas. Cuando uno se cansa de un 
juego se va a la tienda y se cambia por 
otro. Una máquina que estamos des¬ 
arrollando permitirá hacer una copia 
del nuevo programa en el cartucho 
viejo. 

"Está claro que nos copian muchísi¬ 
mo", reconocía José Luis Domínguez. 
Pero está también claro que el des¬ 
arrollo del parque informático en Es¬ 
paña traerá nuevos desarrollos de pro¬ 
tección hardware-software. Quizás es¬ 
te prototipo de cariucho sea sólo el 
comienzo. Por el momento la piratería 
de software en España no deja de ser un 
problema menor para las casas de 
software, quienes se muestran particu¬ 
larmente preocupadas por el futuro, 
como sentenciaba finalmente José 
Luis: "O se busca una solución concre¬ 
ta o las industrias del programa en 
cassette van a correr un grave peligro." 





























Con Jos ordenadores, al igual que 
ocurre con algunos automóviles, sue¬ 
le hacerse referencia siempre al mode¬ 
lo y a la marca. Asi se oye hablar del 
ZXK1 o del Spectrum ambos nrndiir¬ 
los de Sinclair Research ty a veces se 
observa una cierta confusión entre 
ambos modelos, tan diferentes, cuan¬ 
do alguien dice: "tengo un Sinclair"), 
No siempre dos ordenadores con el 
mismo nombre y apellido son iguales, 
pero es obvio que el software que 
corre en ellos lo hace sin problemas. 
Lista circunstancia explica que para 
muchos usuarios haya pasado desa¬ 
percibido el hecho de que existen no 
una ni dos sino tres versiones sucesi¬ 
vas del Spectrum, En España sólo se 
han comercial i/ado las dos últimas. 

Si es usted una persona poco amiga 
de crearse problemas, no se preocupe: 


tanto la versión 2 como la 3 realizan 
las mismas funciones. Pero si es usted 
curioso y le gusta meterse con la 
circuiteria, puede que le haga ilusión 
odiar una nitrada a las entrañas de su 
Spectrum. Compruebe, en base a las 
fotografías que le ofrecemos en este 
articulo, cuál es la versión que usted 
posee. 

La existencia de varias versiones no 
es cuestión de capricho, mucho me¬ 
nos en una máquina tan pensada 
como es el Spectrum. Se trata, como 
siempre, de ir incorporando a la idea 
original los nuevos avances tecnoló¬ 
gicos. En este artículo sólo prestare¬ 
mos atención a un aspecto: la posibi¬ 
lidad de simonizar el Speerum lo 
mejor posible con el televisor. Claro 
que. a esta altura, conviene adarar 
que lo que aquí se diga valdrá para la 


segunda versión, ya que la tercera 
permite realizar la sintonía de forma 
automática. 

Una de las peculiaridades de los 
dos primeros modelos es la flexibili¬ 
dad del dispkiy. Flexibilidad que se 
torna en problema si lo que se desea 
es conectarlo a un monitor. Pero esta 
flexibilidad le permitirá poder reali¬ 
zar unos mejores ajustes. Para ello lia 
de empezar por quitar la carcasa para 
poder trabajar con la placa, siendo 
ésta su primera decisión importante, 
va que con ello se invalida toda 
posible garantía. Sí ya ha decidido 
dar este primer paso, retire los lomi¬ 
llos situados en la parte inferior del 
Spectrum: suelte los dos cables planos 
a los que está conectado el aparato 
con sumo cuidado, ya que no hay 
longitud suficiente como para desen- 
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] l cable ”VtP" (video), 
t i ínter fice del monitor 
del que Sinclair estaba 
muy orgulloso solamente- 
lo hallará en la> 
ver s iones m nd i I lea da s 
del Mark i y 2. Cable 
plano en color del 
Telete xi: Y. V y LJ. 
















Imhurse con í ranquilkkid: localice los 
Blinde usad ores y resistencias varia- 
lies simados en los alrededores del 
liuodulador de televisión v ya estará 
, I en disposición de hacer el ajuste. 
l||endo distinto según tenga conectado 
Id ordenador a un televisor o a un 
llmnnilor. 

Cim Televisor 

ILiv varios componentes que mere- 
ílcen la pena conocerse antes de proce- 
lller a la sintonización del aparato. 

Además en la zona del modulador 
Rfricomrará el VID. que se analizará 

/ yn mi motílenlo ya que tiene que ver 
con el ajuste del monitor. Los con- 
ttjeasadnrcs variables son TCI y TC2 
i ) ¡as resistencias variables son VRI v 
i Mil. Ira bajando de arriba a abato 
| esto es lo que hace cada uno de ellos: 

TCI controla el brillo. 
í TC2 sintoniza los colores de E/S. 

! VRI ajusta los colores azul/amari- 
llk 

VR2 ajusta los colores tojo/verde. 
Antes de continuar, asegúrese de 
| que trabaja con luí destornillador que 
1 no sea metálico y por supuesto tenga 
Icuidado a la hora de apretar o soltar. 
I puesto que hay que hacerlo con el 
llbparalo encendido para poder ver los 
i resultados de la sintonización en la 
I punta lia, Para empezar, ajuste el tor- 
| aillo de l C2 con cuidado en ambas 
Itlireeciones hasta que encuentre el 
I ti mi o más Tuerte de! color, aunque éste 
débil. Esto se hace ajustando los 
|colores con el tornillo situado en 

/VERSION 3 


VRL Una vez localizado el mejor 
color hacer lo mismo con el tomillo 
VR2. Lo esencial reside en combinar 
estos tres tornillos para tener la ima¬ 
gen lo más clara posible. 

1(1 es el condensador que contro¬ 
la el brillo en la pantalla, lina vez que 
el color está a su gusto, este es el 
tornillo a lijar. De lodos modos el 
brillo puede interferir con los demás 
controles por lo que habrá de ir 
a justándolos poco a poco. Una vez 
completado los riel irados ajustes de¬ 
berá tener una imagen clara. 


Con Monitor 

Hasta aquí iodo está muy bien para 
aquellos que quieran simonizar con 
un televisor en particular. Pero para 
aquellos que quieran más tendrán que 
buscar un monitor que acepten en¬ 
trada tic video compuesta \ preparar¬ 
se para hacer un pequeño trabajo de 
soldadura. 

Más abajo del modulador v justo a 
la izquierda del hueco existente entre 
TCI v TC2. hay una pequeña linea 
.ritarenda con las letras “VID", Al 
lina! de uno de los extremos tendre¬ 
mos un pequeño punto de soldadura 
y ai otro extremo un pequeño agujero 
a través de la placa. No es tan íaéil 
acceder a esta i inca puesto que está 
situada a lo largo de las resistencias 
situadas en la parte interior del mo¬ 
dulador, 

“VID* forma como una pequeña 
frontera entre el pon de salida (pon 


de expansión) \ el modulador, Ls 
obvio que al haber un pequeño hueco 
en esta linca lo que habrá que hacer es 
un puente por encima del hueco. 
Cómo conseguirlo es cosa de cada 
uno. Una pequeña pieza de alambre 
bastaría, aunque lo mejor pero mu¬ 
cho más engorroso sería soldar esta¬ 
ño desde el punto de soldadura hasta 
el agujero. De cualquier forma, una 
vez conseguido tendrá una señal de 
v ideo en el pon. 

Solamente son importantes dos li¬ 
ncas en el pon. que son la de v ideo y 
la de 0 voltios, hstas están situadas 
juntas en la parte inferior del pon. En 
la entrada, donde se conectará el 
monitor, la línea de v ideo va hacia la 
patilla central mientras que la línea de 
0 voltios va conectada a la carcasa. Si 
se quiere se puede adaptar el cable de 
l Hl que viene con el equipa. De 
cualquier forma cualquier tienda de 
electricidad tendrá lo que se necesita. 

Todo lo que queda ahora es cómo 
coger la señal de video del pon. La 
manera más flexible sería con un 
eonecior v un bus de expansión. Por 
otro lado también se pueden conse¬ 
guir las señales de otro pon como por 
ejemplo si tiene conectada la impre¬ 
sora. De lodos modos hay que tener 
cuidado con algunos programas pues¬ 
to que se puede causar un volcado de 
la pantalla por impresora si se man¬ 
tiene mucho tiempo conectada. Para 
aquellos que vayan más lejos como 
para utilizar el monitor en el Spec- 
Irunr lo mejor será comprar el eonee- 
tor debido para ello. 


I 1 control dd color y el 
cable plano del Telele*t 
se sustituyeron en d 
Mark } por una utilidad 
dentro de la LILA para 
d autoajliste dd color. 

I sto lúe un paso 
impórtame ya que en — 
los modelos Mark 1 y 2 
por mucho que se 
mientam ajustar t«i 
pantalla, en televisiones 
alemanas y japonesas se 
convenía en un 
problema. 
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Progra m a i Ph eeti ix, 

Tipo: Juego * 

Disí riba klo r: Ven i a m a tic , 
Formato: Cinta de cassette, 
ZX Spectrum 16 ó 48 K. 


Este juego de tipo Arca- 
de es similar a uno del 
mismo nombre que abunda¬ 
ba en los bares no hace 
muchos años. Nosotros con¬ 
trolamos una nave espacial 
situada en la nave inferior 
de la pantalla que debe lu¬ 
char contra cuatro tipos de 
invasores distintos antes de 
poder destruir la nave ma- 
. Estos enemigos se dividen 
en dos clases. Las dos pri¬ 
meras pantallas son de mar¬ 
cianos normales (con varia¬ 
ciones entre ellos de color y 
forma) y la tercera y cuarta 
están formadas por unos 
huevos que posteriormente 
se convierten en grandes 
pájaros. Después de estas 
cuatro oleadas nos aparece 
una nave de gran tamaño 
escoltada por otra escuadri¬ 
lla de marcianos. 

El juego se carga sin difi¬ 
cultad siguiendo las instruc¬ 
ciones de la cinta y una vez 
cargado se nos da a elegir 
entre jugar con e! teclado o 
con un juystick de tipo 
Kempston. A continuación, 
se nos pide el nivel de 
dificultad, que está com¬ 
prendido entre uno y cinco. 
La calibración de la dificul¬ 
tad está muy bien hecha y 
mientras el uno es lo bas¬ 
tante lento como para prin¬ 
cipiantes, el cinco es pura 
jugadores muy, muy rápidos. 

Cuando empezamos a ju¬ 
gar suena una música dema¬ 
siado larga para nuestro 
gusto y que no se puede 
parar, las dos primeras ve¬ 
ces que se oye es muy sim¬ 
pática pero a la tercera em¬ 
pieza a hartarnos. Después 
viene la primera oleada con 
los marcianos que empiezan 
a aparecer por ¡os bordes 
izquierdo y derecho de la 


pantalla y se van colocando 
en su posición de combate, 
mientras se están colocando 
no disparan por lo que re¬ 
sulta muy fácil destruirles. 
Cuando están colocados to¬ 
dos empiezan a moverse y 
disparar, la cantidad de tiros 
que realizan resulta excesi¬ 
va, incluso en el nivel uno, 
por lo que resulta extrema¬ 
damente difícil pasar por 
debajo de ellos. 

Una vez destruida la pri¬ 
mera oleada vendrá una se¬ 
gunda del mismo tipo, aun¬ 
que los marcianos sean del 


mismo color. Después de 
ésta aparecen unos huevos 
de pájaro que se desplazan 
por la pantalla lateralmente 
hasta que al cabo de algunos 
segundos nace d pájaro. Po¬ 
demos intentar disparar a 
los huevos y a los pájaros, y 
debemos intentar destín ir¬ 
los cuando todavía son hue¬ 
vos, ya que no disparan y 
son más vulnerables. 
Después de dos oleadas de 
pájaros aparece la nave ma¬ 
dre. Es una nave de gran 
tamaño que ocupa casi toda 
la pantalla y en laque está el 
jefe de los invasores. Para 
destruirle y ganar debemos 
agujerear el grueso casco de 
la nave y realizar un agujero 
en la cinta corrediza que 
rodea el perímetro del plati¬ 
llo volante, una vez hemos 
logrado esto hay que dispa¬ 
rar a través de los agujeros y 
destruir al jefe enemigo (que 


por cierto parece un gato 
meneando la cola». 

El juego está realizado 
con gran animación inclu¬ 
yendo electos de sonido. Las 
distintas pantallas están 
bien realizadas y los niveles 
de juego tienen velocidades 
correa as. Los dos i neón ve¬ 
nientes que hemos visto 
consisten en que al poner¬ 
nos un escudo protector an¬ 
tibalas no podemos disparar 
pero .si movernos (justo a* 
revés que su homólogo Je 
los bares) v que sus naves 
disparan demasiado. 
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Programa: PoÍ 'momios. 
Tipo: Educa tiro. 
Distribuidor: ABC SOFT , 
Formato: Cinta de 
cassette. 

Spectrum 4HK , 

Este programa pretende 
tratar el estudio de los poli¬ 
nomios desde un nivel de 
primero de BUP hasta pri¬ 
mero de carrera. Este espec¬ 
tro es demasiado amplío 
para poder tratarlo en pro¬ 
fundidad y, por tanto, no 
puede hacer un estudio ex¬ 
haustivo de todo el tema. 
Esto no es óbice para que 
explique bien los remas que 
trae (hasta un total de 20 > y 
de ejemplos claros. 


I I programa está plan 
ieadt \ e<m una ópiiia ahien.i 
en la que ni> se mienta guiar 
al estudiante a unos lemas 
específicos sino que se le da 
un inemí donde puede elegir 
el unta j Matar, además 
todos los, cálculos se hacen 
o>n un polinomio que pre¬ 
viamente le introduce el es¬ 
tudiante y que. puede ser de 
cualquier dimensión (hasta 
un máximo de 12) podiendo 
trabajar con el mismo poli¬ 
nomio o con cualquiera de 
sus derivadas. 

Entre las distintas opcio¬ 


nes que tiene figuran: cálcu¬ 
lo de derivadas, cálculo de la 
integral, cálculo de raíces de 
diversv>s tipt>s (enceras, frac¬ 
ciona rías, reales), máximos 
y mínimos, dibujo del poli¬ 
nomio y de sus derivados, 
cálculo de áreas encerradas 
por el polinomio y cálculo 
de volúmenes, etc. 

La realización del progra¬ 
ma es correcta y va acompa¬ 
ñado de un manual muy 
completo y de fácil com¬ 
prensión. Como fallo se po¬ 
dría indicar la lentitud de 
algunos cálculos en los que 
hace esperar algo más de lo 
acostumbrado para un or¬ 
denador (después de todo, 
los ordenadores son rápidos, 

; no?), 

PUNTUACION: UTI¬ 
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Programa: Artht. 

Tipo: í HUidades. 

/~)istrib tí idor: D in < / m k 

I w/7. 

Formato: Cinta de 
cassette. 

ZX Spec iraní 4HK. 

liste programa le pe mi i te 
j Citar pantallas gráficas con 
| gran sencillez y cornudillas.] 
I ofreciéndole un amplio eun- 
I junto de herramientas’ que 
i simplifican notablemente el 
trabajo, haciendo que la 


los normales del Spectrum 
sí de gran tamaño, especial¬ 
mente útiles para tirulos. 
I.stc aparrado nos permite 
un mejor control de los 
bloques de la pantalla <8*8 
pumos i pudiendo cambiar 
el fondo individual de cada 
tino de los puntos. Otra de 
las opciones de que dispone 
el programa es un editor de 
caracteres íUDGf </ttv ü/tn 
cjitt 17 / exiMciuht H\t están¬ 
dar de/ Spectrum. su crea¬ 
ción y manejo no es excesi¬ 
vamente fácil, sobre todo 


necesarias para leer \ grabar 
los gráficos en cinta. 

I'l programa está bien 
desarrollado y funciona a la 
perfección, aunque se echa a 
notar en falta una opción 
que permita la ampliación 
de una pequeña parte de la 
pantalla a gran escala para 
su mejor manejo. 

PUNTUACION: UTILI¬ 
DAD: 7. PRESENTA¬ 
CION: 1 CLARIDAD: ó. 
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[aculares, similares a los que 
traen muchos juegos comer¬ 
ciales, estén al alcance de 
todos. 


El programa se carga si¬ 
guiendo los procedimientos 
normales y una vez puesto 
en marcha nos aparece un 
mentí desde donde podemos 
elegir las distintas modali¬ 
dades de dibujo, estas se 
pueden mezclar permitien¬ 
do una amplia gama de 
posibü id a des. 

La primera modalidad 
existente es la de modo 
pfatter. Aquí se nos permite 
colocar puntos individuales, 
lineas rectas y toda dase de 
curvas. También tiene una 
opción destinada a rellenar 
áreas de un color, con lo que 
se s i m p I i f tea enor me mente 
el trabajo. En modo texto 
permite la introducción de 
caracteres dentro del dibujo; 
estos caracteres pueden ser 


poseen demasiada soltura 
con la máquina. El progra¬ 
ma soluciona este problema, 
en parte, permitiendo la 
creación y modificación de 
estos caracteres, que pueden 
ser usados dentro del gráfico 
con el que estemos traba¬ 
jando o salvados para su uso 
con otro programa. 

L na curiosa peculiaridad 
de esre programa reside en 
la posibilidad de trabajaren 
perspectiva y poder definir 
figuras tridimensionales, 
para esto se dispone de un 
modo especial en el que 
todos los movimientos se 
realizan en perspectiva, per¬ 
mitiéndonos, trazar los di¬ 
bujos en tres dimensiones y 
añadirlos al gráfico general 
donde luego se pueden re¬ 
llenar los lados. 

Aparte de rodas las op¬ 
ciones indicadas anterior¬ 
mente dispone de las típicas 


P rog ni ma: Tu m 7 es 
marcianos* 

Tipo: Jaego, 

Di si riba ido r: Ven i a m a t /V. 
Formato: Cinta de 
cassette, 

Spectrum 4HK. 

Si hay alguna característi¬ 
ca que sea común a la gran 
mayoría de los juegos, y 
sobre todo los juegos de 
acción como este, es la sen¬ 
cillez de sus principios y lo 
poco que se necesita pensar 
para poder jugar. Y es justo 
en este punto en el que el 
programa Túneles Marcia¬ 
nos llama la atención. Desde 
un principio hay un objetivo 
bien definido consistente er 
coger un cofre y abrirlo para 
llevarse el tesoro que hay 
dentro y para poder hacer 
esto necesitamos siete llaves 
que hay repartidas por dis¬ 
tintas partes del laberinto. 

Y si ésta es la presen ra¬ 


ción típica de un juego de 
aventuras en el que tendre¬ 
mos que recorrer todos los 
laberintos mirando cosas, 
cogiendo, dejando y hacien¬ 
do otro sinfín de Cosas pro¬ 
pias de un explorador, la 
realidad es bastante diferen¬ 
te. Cada habitación del labe¬ 
rinto está llena de mons¬ 
truos que. como es normal 
en estos casos, intentan co¬ 
mernos mientras que noso¬ 
tros con una pistola inten¬ 
tamos m ara ríos a rodos para 
pasar a la siguiente h abita - 
don. L1 problema es más 
difícil en las habitaciones 
que contengan algún objeto 
interesante (cofre, llaves) ya 
que este debe ser código 
antes de matar a todos los 
monstruos, si no lo bacemoa 
a si, el objeto desaparecerá 
cuando queden menos de 
tres monstruos y deberemos 
volver a empezar a buscarlo. 

El juego es fácil de enten¬ 
der y tiene un manejo senci¬ 
llo por medio de un joy\t¡ck 
n del teclado. Los gráficos 
representando a los mons¬ 
truos y ai astronauta son de 
gran tamaño y de una cali¬ 
dad sorprendente (sobre to¬ 
do el del astronauta) que le 
da más realismo al juego. 
Los niveles de dificultad 
aumentan de habitación en 
habitación como era de es¬ 
perar y resulta bastante difí¬ 
cil pasar de la tercer 

Las instrucciones de juego 
van incluidas (en español} 
en el mismo programa y 
todo el juego va acompaña¬ 
do de una serie de tonadas, 
algunas muy conocidas, que 
le dan más animación La 
presentación es muy sencilla 
(no tiene ninguna pantalla 
de portada con un gráfico 
espectacular) y el manejo 
por el teclado es muy cornu¬ 
do y nu plantea problemas, 

PUNTUACION: ADIC¬ 
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Y porque no sólo de aprender se trata, sino también 
de divertirse, cerraremos Todospectrum con un peque¬ 
ño repertorio de buenos programas. 

Les garantizamos que todos serán probados y 
verificados, ofreciendo una copia de la representación 
por pantalla de aquellos aspectos más significativos 
del programa. Les prometemos también vigilar estre¬ 
chamente a nuestro niaquetisia para evitar que “se le 
vaya la tijera" en los listados de los programas. 


Dado que existen dos modelos de Spectrum en 
cuanto a capacidad de memoria, indicaremos en cada 
programa la capacidad mínima necesaria. Í6K indi¬ 
cará que corre en un Spectrum de ¡6K o de capacida¬ 
des mayores, y 4HK que necesita dicha cantidad de 
memoria como mínimo, no pudiendo correr en el 
Spectrum de I6K. Muchos programas utilizarán los 
gráficos de alta resolución, en cuyo caso lo indicare¬ 
mos adecuadamente. Veamos un ejemplo: 


s 


Barcos 

Con un poco de ilusión y grandes dosis de paciencia 
le auguramos una buena partida al popular juego de 
los barcos para la próxima navidad. Quizás sea 
exagerar un poco, a pesar del elevado número de 
instrucciones a introducir, pero no le exageramos nada 
al decir que es un estupendo juego con el que podra 
jugar contra el ordenador, con una buena resolución 
gráfica aun no generando ningún carácter gráfico. 

Por si acaso es usted nuevo en estas lides de guerra o 
desea que le refresquemos la memoria, veamos las 
reglas de juego impuestas por este programa: 

1. Dispone de un cuadrado de 14 X 14 donde 
situar sus navios. 

2. La Ilota consta de I portavumes (4 recuadros}, 2 
cruceros (3 recuadros), 3 submarinos (2 recuadros} y 5 
lanchas (1 recuadro). 

3. Las naves no pueden tocarse, debiendo existir al 
menos un cuadrado libre desde cualquier posición 
vertical, horizontal o diagonal. 

4. Existen dos posibilidades de juego: hundir la 
flota o jugar a puntos. El primer caso es el clásico 
juego de los barcos en el que el ganador es el que 
consigue destruir toda la Ilota enemiga. La segunda 
opción consiste en tratar de hundir el mayor número 
posible de barcos con un número de disparos limita¬ 
dos. acortándose así el juego (especialmente recomen¬ 
dado para nerviosos y ejecutivos atareados). 



5. Los disparos son alternos, a excepción de 
cuando se hace blanco, en cuyo caso sigue jugando el 
mismo jugador. 

6. El ordenador no repite nunca el disparo en un 
mismo lugar y cuando toca a un barco tiene la 
costumbre de dispararle aleatoriamente alrededor 
hasta hundirlo. 


Autor: Jorge Turró Noguera. 
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10 rem Programa "Barcos" 

13 REM Creado por JORDI TURRO 
13 REM ZX SPECTRUM 30-8-198* 

15 CLERR : CLS ; RANDOMIZE 

16 DIM Dd*.!*): DIM 0(14.14.) 

17 DIM X (SI) : DIM y (21) 

13 DIM a (21) : DIM l (21) 

19 DIM * (21) : DIM t (21) 

20 DIM 9 (21) : DIM h (4) 

25 LET P0»0: LET PO0»0 

26 LET C1=0: LET COl«0 

27 LET C2>0: LET CO2-0 
23 LET 31 »0: LET 301*0 

29 LET 62-0; LET 302-0 

30 LET 83a0: LET So3-0 

31 LET dd-0; LET dJ-0 

32 LET AJ»0: LET flñ«0 

33 LET JP-0: LET TT»0 

34 LET LLb 0: LET To«0 

35 LET T f■0: LET Ti »0 

36 LET Md«250: LET d*l 

38 PAPER 7 

39 BORDER 6 

40 PRINT INK 1; INUER5E 1¿"JUE 
SOS DE BARCOS HUNDIR LA FLOTA" 

50 PRINT INK 2; INUERSE DAT 1 
,6;" RESLAS DEL JUESÜ " 

55 PRINT INK 3; 

**"sS "print "Primero deberás si tu 
ar en posición tus barcos.": PRI 
NT 

55 print "EL ordenador después 
se asignaran posición de los t 
uyos.": PRINT 

70 print "La flota estera form 
ada por." 

75 PRINT "1 Portaviones de 4 r 
tcuadros" , _ 

60 PRINT "2 Cruceros de 3 recu 
adros" „ , , _ 

85 PRINT "3 Submarinos de 2 re 
cuadros" 

90 PRINT "5 Lanchas de i recua 
dro": PRINT 

95 PRINT "LOS disparos serán a 
tiernos . excepto cuando uno heg 
a btanco quetirara de nuevo y no 
se contara" 

100 PRINT 

110 PRINT : PRINT INK lj INUERS 
E i;"Para seguir viendo ínstrucc 
iones putsa una tecta cualquiera 


3 : 




























WAfttikA G H1J K LMNOPQRSTU 

Cada ve/. que vea un carácter “extraño” (fuera de 
los disponibles en el Spectrum) bastará con que le 
busque en esta segunda linea, cambie a modo gráfico 


rOMOs 

(CAPS SH1FT + 9) y presione la tecla inmediatamente 
superior en la primera línea. ¿Fácil no? Como usted ya 
sabe, con ello aparecerá la letra que pulsa, pero 
cuando ejecute el programa (RUN) se cambiará por el 
carácter correspondiente generado por el propio 
programa. 

Esperamos que la selección sea de su agrado, y si no 
lo es díganoslo: ¡admitimos sugerencias! 


115 
120 
OS 0 
125 
ntoa 
at” 

13* PRINT 
135 PRINT 


puní 


PAUSE 0: CL5 
print "Puedes jugar a 
hundir toda la flota" 
print : PRINT "jugando a pu 
máximo 250 disparos tn tot 


■Por tav i ones «4. puntos 


1*0 PRINT "Crucero- 6 puntos 

i 

145 print "Submarino- 8 puntos 


150 PRINT "Lancha- 


10 puntos 


PRINT "El tablero i 
los disparos 


dci ju 
derecho da i ordenado 


print "Debajo da ai 
ios puntos qu« vaya 
madioios disparos 


an 


160 PRINT 
zquierdo son 
gador y al 

f 165 PRINT 
los saldrán 
s sumando y 
a factuados " 

170 PRINT : PRINT : PRINT INK 1 
: INUERSE 1;"Para saguir yiando 
instrucciones pulsa una tacia cu 
siquiera 

175 PAUSE 0; CLS 
160 PRINT "Si juagas a puntos, 
al contador da disparos ira rast 
ando los disparos que quedan" 

185 PRINT : print "una vez tarm 
inado el juago a puntos, podras 
elegir continuar el mismo 
190 print : print "Si juegas a 
hundir toda la fiotaei contador 
solo sumara los disparos erectu 
ados" 

200 PRINT : PRINT "El ordenador 
al finalizar la partida, te dir 
a, donde tenia sus Barcos" 

210 PRINT : PRINT 
230 PRINT : PRINT : PRINT ; PRI 
NT INK 2; INUERSE l;"Para ampeza 
r el juego pulsa una tecla cuaiq 
uiera 

240 PAUSE 0: CLS 
260 GO SUB 9370 


276 PRINT INK 1; INUERSE 1¿RT 1 
6,0¡"JUGADOR"; INK 2; INUERSE 1; 
AT 16,11;"Tiro";AT 16,20, INK 3; 

Ten icnte 4 ' "nfinrMñhñO" 


i ío > iiiu j m iw j 

INUERSE l;"ORDENADOR' 

280 PRINT INK 1;AT 16,7¿":"JAJj 

INK 2;AT 16, 15; f ': " ;TT; INK 3;AT 

16,29;":AO 

285 GO TO 2370 

290 PRINT AT 17,0;" 


295 PRINT FLASH 1; INK 3íAT £0, 
13'"ESPERA" 

297 PRINT INK 2; INUERSE 1;AT 2 
i,2;" Me estoy situando ios míos 


300 REM ASIGNACION POSICION DE 
BARCOS DEL ORDENADOR 


305 

310 

315 

320 

325 

335 

345 

350 

355 

360 

370 

380 

385 

390 

395 

400 

410 

420 

425 

430 

440 

445 

450 

8 ! 

475 

480 

486 

490 

495 

500 

510 

520 

530 

540 

630 

635 

640 

645 

650 

655 

660 

665 

670 

675 

680 




REM ASIGNAR 1 PQRTAUIONES 
LET X-INT <RND#U> 

LET Y-INT iRNDell» +1 
LET B-INT iRND*10) 

IF B >-S TMEN 00 TO 360 


X > 


Y v 


REM PORTAUIONES EJE 
FOR n-1 TO 4 
let x (n) -x+n-1 
LET y(n)-Y 
NEXT n 
GO TO 410 

REM PORTAUIONES EJE 
FOR n-1 TO 4 
LET x tn)-X 
LET y in) «Y+n-1 
NEXT n 

REM ASIGNRR 2 CRUCEROS 
FOR n-5 TO 10 STEP 3 
LET B-INT i RND*10) 

LET G-0 

LET X-INT (RND *12) 

LET Y-INT (RND*12) +1 
FOR p-n TO n+2 
IF B>-5 THEN 00 TO 490 
REM CRUCERO EJE 
LET xip)-X+P-n 
LET u (P) -Y 
GO TO 510 
REM CRUCERO EJE 
LET X(p)-X 
LET y (p 1 -Y+P-n 
GO SUB 840 
NEXT p 

IF 0-1 TMEN GO TO 430 
NEXT n 

REM ASIGNAR 3 SUBMARINOS 
FOR n-11 TO 16 STEP 2 
LET B-INT (RND»10) 

LET 0-0 

LET X-INT (RN0S13) 

LET Y-INT (RND*13)+1 
FOR p-n TO n+1 
IF B>-5 TMEN 00 TO 690 


X > 


Y V 


X > 


691 

695 

700 

705 

710 

720 

730 

770 

775 

780 

785 

79® 

795 

809 

810 
815 
820 
830 
840 
845 


Y V 


REM SUBMARINO EJE 
LET X ip) -X+p-n 
LET u ip)«Y 
00 TO 705 
REM SUBMARINO EJE 
LET X(p)-X 
LET y (p ) -Y+p-n 
00 SUB 840 
NEXT p 

IF 0-1 TMEN 00 TO 648 
NEXT n 

REM ASIGNAR 6 LANCHAS 
FOR n-1? TO 21 
LET P-n 
LET 0-0 

LET X ip) -INT i RND*14) 

LET y ip)-INT íRND*14i *1 
00 SUB 640 

IF 0*1 TMEN 00 TO 785 
LET g-p 
NEXT n 
00 TO 920 

REM COMPROBAR COINCIDENCIAS 
FOR m*n-1 TO 1 5TEP -1 
















AND 

V 

(p ) -1 ay 

ftND 

V 

ÍP ) -lay 

RND 

U 

(p ) +1»y 

ÑND 

V 

(p) +1*y 

PfiRfi 

INICIO 


850 IF xfpjexím) ANO ylp)aytm) 

THEN LET G*i _ 

855 REM COMPROBAR E5TRN PEGADOS 
860 IF x(p)-l»x(m> RND yíp)aytm 
i THEN LET G*=l 

865 IF Xip)+l=Xím) RND yip)ayim 
> TMEN LET G = 1 v . 

S70 IF xipíaxim) RND yip)-l«yim 
) TMEN LET G«1 

875 IF xtp)*x<m) RND yCp)+l«yt» 

) TMEN LET G*1 __ 

880 REM COMPROBAR CON UERTXCES 
885 IF x íp1-l«x ira) 
ilft) THEN LET G = 1 
890 IF x <P J + 1 «X CID) 
ira) THEN LET G*1 
895 IF Xip) -l=x ira) 

Hh) TMEN LET G*1 
900 IF X tp) +1 = X ím) 
i A) i THEN LET G = 1 
905 NEXT III 

910 RETURN 
915 REM PREGUNTÉ 
DEL JUEGO 
920 FLASH 0 
925 GO SUB 7700 
930 BEEP 1.5,14 
940 LET JP■0 

946 IF Md n0 TMEN GO 5UB 8300: G 
O TG 1000 

950 PRINT INK 1;RT 20.0;"A QUE 
JUEGRS 7 

955 PRINT INK 2;RT £1,0;"PuntQ % 
aP, o Hundir lodo»H 
960 INPUT Jt 

965 IF JtoCHRf 112 AND J*oCHR 
S 104 THEN GO TO 950 
970 IF J*="h" THEN GO TO 1000 
976 LET JPal 

980 PRINT INK i;AT 20.0;"Din* « 

l nufiiíro máximo disparos " 

985 PRINT INK 2; BT 21.0;"Max imo 
'■;Md; M disparos 
990 INPUT Nd 

995 IF Nd >Md OR Nd < a0 THEN GO T 
O 980 

996 LET Md »Md-Nd 

997 LET TTaNd 

998 PRINT INK 2;AT 16,16,Nd 
1000 REM ASIGNACION JUGADOR 
1020 PRINT INK l^flT 20.0; Qu i tn 


empieza primero 

1025 PRINT INK 2;AT 21.0;" 


TU«T 


O YO =Y 

1030 INPUT Üt 

1035 IF ktoCHRf 116 AND k$<>CHR 

t 121 THEN GO TO 1020 

1040 IF k$■"l" THEN GO TO 2970 

1150 GO SUB 7720 

1151 PRINT INK 1;AT 18,0, ‘D ISPAR 
05 JUGADOR 

1153 IF TT <100 THEN PRINT AT 18 . 

^ 0 . n H 

1154 IF TT <10 THEN PRINT AT 16,1 

7;" " 

1155 PRINT INK 2,AT 16,16;TT 
1157 IF JPal THEN GO TO 1170 
1160 LET TT «TT + 1 

1165 GO TÜ 1180 

1170 IF TT-0 THEN GO TO 7800 

1175 LET TTrTT-1 

1180 REM DISPAROS DE JUGADOR 

1132 PRINT INK 1;AT 16,8;AJ 

1195 PRINT INK 2;AT 19,0; ‘COOfde 

nadas";RT 20,0;"de disparo" 

1198 PRINT INK 1;AT 19,13; " le t ra 
a", FLASH 1;AT 19,20;"?"; INPUT 
X*1 FLR5H 0 

1200 IF XliCHRI 97 OR x*>CHR$ 11 
0 THEN GO SUB 4700; GO TO 1198 
1203 PRINT INK 2;RT 19,20;X* 

1205 PRINT INK l.RT 20,13;"nUme f 
Or"; FLASH l.AT 20,20;"7": INPUT 



y: flash 0 

1210 IF y i 1 OR y 
4700; GO TO 1205 
1215 PRINT INK 2,AT 
1218 REM COORDENDA 
JUGADOR y ASIGNAC 


THEN GO SUB 

20,20;y 

" 7SPí 


1220 

1222 

1224 

1225 
1228 
1230 
1232 
1234 
1236 
1238 
1240 
1242 
1244 
1246 
1250 
1255 
1260 
1230 
1290 
1300 

y 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
FÜR 
IF S = f 
NEXT f 
GO SUB 1300 
GO TO 1330 
REM COORDENADA (Y) 
ASIGNAC., JUGADOR y 



THEN 
THEN 
TMEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
TO 13 
THEN LET 


<X) DISPARO 
. ORDENRDOR 
LET £»0 
S&1 
S =2 
S*3 
S a 4 
S a5 
S >6 
Sa7 
S a8 
s «9 
S a 10 
S«ll 
S a 12 
1=13 


LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 


f «8 


DISPRRO 

ORDENA. 


W*159-8t U- 


1355 


1302 FOR f a1 TO 14 
1305 IF y=i THEN LET 
1) : LET V = U +S 
1310 NEXT f 
1320 RETURN 

1330 REM ANULRR COINCIDENCIAS 
DISPAROS JUGADOR 
1332 IF dj=l THEN GO TO 
1335 LET DiStl.y)=1 
1340 LET dj = l 
1350 GO TO 1400 

1355 IF DÍS + l,y)*l TMEN GO SUB 1 
710; GO SUB 4550; GÜ TO 1180 
1360 LET D(S+l,y)=1 
1400 GO SUB 3390 

2000 REM COMPROBACION ACIERTOS 
DEL JUGADOR de 2005 a 2365 
2005 LET Aa0: LET Cs0 
2010 FOR nal TO 21 




tn) «n 


ET Ral: LET Can: LE 
£020 NEXT n 
2025 PLOT FLASH 0;X44,W+4 
2027 IF Aa0 THEN GO SUB 7300: GO 
TO 3000 

2029 REM Acierto Porteviones 7 

2030 IF Cal OR C-2 OR c>3 OR C*4 
THEN GO TO 2080 

2034 REM Acierto Cruceros 7 

2035 IF ca5 OR c*5 OR C«7 THEN G 
O TO 2120 

2040 IF C «8 OR C «9 OR Cal0 THEN 
GO TO 2160 

2044 REM Aciertos Submarinos 7 

2045 IF Cali OR C a12 THEN GO TO 

2200 

























4050 IF c>13 ÜR C > 14 THEN GO TO 
2240 

?2lf IF C-1S 0R Ce 16 THEN CO TO 
2230 

2222 Slí? .S c í* f t0f canchas ? 

2065 PRINT INK 2,RT 

2067 LET RJ-RJtli " 

4070 GO 5UB 7600; GO TO 2360 
20S0 IF llll.l RND 112)«2 AND U 
3)=3 AND l(4)a4 THEN GO TO 2100 
2090 GO SUB 6100: GO 5UB 7600; L 
ET ñvJaflJ + 1 ; GO TO 1180 
2100 LET ñJaRd+1; LET P0=1: LET 
JA>1: LET JB*4 

4110 GO SUB 6160: GO 5ÜB 7600; G 
O TO 4360 

2140 IF 1(8)-8 AND lÍ6)*6 RND U 

7)a7 THEN GO TO 2140 

2130 GO SUB 6100; GO SUB 7500' L 

ET ñJafld+2; GO TO 1180 

4140 LET AJcflJ+2: LET Clal; LET 

JR=5: LET UB>7 

2150 QO SUB 6150; GO SUB 7600: G 
O TO 2360 

2160 IF 1(0) ag RND 1(9)-9 RND U 

10) a 10 THEN GO TO 2180 

2170 GO SUB 6100: GO SUB 7600: L 

ET AJaflJ+2; GO TO 1180 

2180 LET AU>AU+2: LET C2al: LET 

JR*8 LET JB«10 

2190 GO SUB 6150: GO SUB 7600; G 
O TO 4350 

2400 IF l(11)■1l RND l(12)>12 TH 
EN GO TO 2220 

2210 GO SUB 6100; GO SUB 7500: L 
ET RJ.RU+4: GO TO 1160 
2220 LET ñJaflj+4; LET Sl»l: LET 


Ufiall: LET JB >12 
4230 GO SUB 6150: 

O TO 2350 
2240 IF 1(13) >13 RND U14)>14 TH 


GO SUB 7600: G 


GO SUB 7600: L 


GO SUB 7600; 


EN GO TO 4460 
4250 GO SUB 6100 
ET AU>AJ+4: GO TO 1180 
£260 LET RüaRJ+4; LET 52al: LET 
JA a13; LET JB a14 
2270 GO SUB 6150 
O TO 2350 
4280 IF 1(15)>15 AND U16) >16 TH 
EN GO TO 2300 

2290 GO SUB 6100; GO SUB 7500; L 
ET AJaftJ+4: GO TO 1130 
2300 LET AJaRJ+4: LET S3al: LET 
JA=15: LET JB = 16 
2310 GO SUB 5150; GO SUB 7600 
2350 REM 7 TODOS HUNDIDOS 
2360 IF P 0 > 1 AND Cl*l RND C2al R 
ND 51*1 RND 52 = 1 RND S3=l RND l( 
17) >17 RND U16)*1B AND 1.(19) «19 
AND l(20)>20 AND L(21)>21 THEN 
LET JPa0: GO TO 9880 
2365 GO TO 1180 

2370 REM ASIGNACION BARCOS DEL 
JUGADOR de 2375 3 2380 
2375 PRINT INK 2¡AT 17.0;"ASIGNA 
CION BARCOS JUGADOR" 

2380 PRINT INK 1 }AT 18,0;"1 Port 
ejiones de 4 recuadros" 

2390 GO SUB 4300 

2400 IF W(a"v" THEN GO TO 0460 

2405 IF x $>CHR$ 107 THEN GO SUB 

4700; GO SUB 4750: GO TO 2370 

2407 PLOT FLASH 0;xX+4,W+2 

2410 FOR n=0 TO 24 STEP 8 

2415 GIROLE INK 1; XX+4+n , W+4,2 

2417 GIROLE INK 1; XX +3.5+n , w +4,1 

2420 NEXT n 

2430 FOR n*l TO 4 

2435 LET &£n)>ss+n-l 

2440 LET t(n)«y 

2445 NEXT n 

2450 GO TO 2500 

2460 IF y>11 THEN GO SUB 4700: G 


Plomas 


2 CRUCEROS 
18,0;"2 Cruc 


O SUB 47$0: GO TO 2370 
£462 PLOT FLASH 0,XX+4,W+2 
2465 FOR n=0 TO 24 STEP 8 
2470 CIRCLE INK 1;XX+4,W+4-n,2 

2474 GIROLE INK 1,xx+3.5,w+4-n , 1 

2475 NEXT n 

2480 FOR nal TO 4 
2485 LET S(n)>SS 
2490 LET t <n)ay+n-1 
2495 NEXT n 
2500 REM ASIGNACION 
2510 PRINT INK 1;RT 
eros de 3 recuadros 
2515 FOR n>5 TO 10 STEP 3 
2525 LET GG*0 
2530 GO SUB 4300 
2535 IF #|*"v" THEN GO TO 2600 
2540 IF Sft >28 THEN GO SUB 4700: 
GO SUB 4750 GO TO 2525 
2545 FOR P«n TO n+2 
2550 LET 5(P)«3S+P-n 
2555 LET t ¡p)>u 
2560 GO SUB 4900 
2565 NEXT P 

2570 IF GGal TMEN GO SUB 4550: G 
O 5UB 4750; GÜ SUB 4200: GO TO 2 
525 

PLOT FLASH 0,XX+4,W+2 
FOR m *0 TO 16 STEP 8 
GIROLE INK 


2572 

2575 

2580 

2532 

2585 

2590 

2600 

O SUB 

2605 

2610 

2615 

2620 

2625 

2630 

O SUB 

525 

2632 

2635 

2540 

2642 

2650 

2665 

4680 

4685 


INK 


GIROLE 
NEXT W 
GO TO 2665 
IF y>12 THEN 
4780; GO TO 


1; xx+4+w ,w+4,2 

1, XX +3.5 + m,w +4,1 


FOR p»n TO n+2 
LET i (p)>ss 
LET t (p ) au+p -n 
GO SUB 4900 
NEXT P 

IF GG«1 THEN GO 


GO SUB 
2525 


4700: G 


SUB 


4750; GO SUB 4200 


4550: 
GO TO 


PLOT FLASH 
FOR m«0 TO 
CIRCLE INK 
GIROLE INK 
NEXT Oí 
NEXT n 
REM ASIGNACION 
PRINT INK 1;AT 


0; xx +4, id +2 
16 STEP 8 
1; xx+4 >w +4-i» , 2 
1; xx +3.3 ,w +4-ia. 


arinos de 2 recuadros 


3 SUBMARINOS 
18,0f_"3 Subid 


£690 FOR nall TO 16 STEP 2 

2695 LET GG>0 

2700 GO SUB 4300 

4705 IF u*a"\j" THEN GO TO 

2710 IF SS >29 THEN GO SUB 


2760 

4700 


G 

2 


GO SUB 4750: GO TO 2695 
2715 FOR pan TO n+1 
2720 LET Sip)ass+p-n 
2723 LET 1(p)aU 
2730 GÜ SUB 4900 
2738 NEXT P 

2748 IF GGal THEN GO SUB 4550: 

O SUB 4750; GO SUB 4250: GÜ TO 

69>5 

2746 PLOT FLASH 0,xx+4,w+2 

2747 FOR ffia0 TO B STEP 8 

2750 CIRCLE INK 1; XX +4+10 , W +4,2 

2751 GIROLE INK 1; XX +3 . 5+lft , ID +4,1 
2753 NEXT ni 

2755 GO TO 2810 

2760 IF M>13 THEN GO SUB 4700: G 
O SUB 4750: GÜ TO 2695 
2765 FOR p>n TO n+2 
2770 LeT s (P)>13 
2775 LET 1 <p) aü+p-n 
2780 GO SUB 4900 
2785 NEXT p 
2795 IF GG>1 THEN GO 


SUB 


© 


O SUB 4750: GO SUB 4250 
2695 

2796 PLOT FLASH 0;xx+4,W+2 


4550: G 
GO 5UB 












8797 FOR »=0 TO 8 STCP 8 
8820 CIRCLE INK 1 ¡ XX +4., tal +4.-ffi , S 
2801 CIRCLE INK 1;XX+3.S,tal+ 4-fll ,1 
2803 NEXT m 
2810 NEXT n 

2820 REM ASIGNACION 5 LANCHAS 

2825 PRINT INK 1; RT 18,0; S Lint 

has de l recuadro 

2827 LET LL*1 

2630 FOR n «17 TO 21 

2836 LET GG«2 

2840 SO SUS 4300 

2845 LET p »n 

2850 LET S(p)sSJ 

2855 LET \ (p)*y 

3860 GO SUB 4900 _ 

2870 IF GG = 1 TNEN SO SüB 4550: 

Q SUB 4750: SO TO 2835 

2871 PLOT FLASH 0;xX+4,tai+2 

2872 CIRCLE INK 1; XX +4 , tal +4,2 

2873 CIRCLE INK 1; X X+3,5 , tal+4,1 
2830 NEXT n 

2900 GO TO 290 
2970 GO 5UB 7700 
3000 REM DISPAROS ORDENADOR 
3002 IF TT <100 THEN PRINT RT 16, 
18; " *' 

30¿3 IF TT <10 THEN. PRINT RT 16,1 

7;” " 

3004 PRINT INK 2;RT 16,16;TT;RT 

16,30; INK 3; RO 

3086 IF UP-1 THEN GO TO 3010 

3007 LET TT «TT +1 

3008 GO TO 3016 

3010 IF TT-0 THEN GO TO 7800 
3013 LET TT-TT-1 

3016 PRINT INK 3;AT 18,0;"DISPAR 
OS ORDENADOR 

3020 PRINT FLASH l; INK 3;AT 20, 

13;“ESPERA" _ _ 

3025 IF Tft > a2 THEN GO TO 5910 
3030 IF TOO® THEN GO TO 5830 
3035 LET 1S>INT <RND#14)+17 
3040 LET ysINT (RND+14)+1 
3042 LET Sífui; LET yrau 
3045 IF dd-1 THEN GO TO 3055 
3047 LET dd«l 
3050 LET OÍSS-18,y)«1 
3052 GO TO 3060 

3055 IF 0ÍSS-16,y)-l THEN GO TO 
3025 

3057 LET 0<*i-16,y)>1 
3080 GO SUB 5670 

3070 PLOT FLASH 1; INK 2;XX+*,MI + 

3075 PLOT XX +2, mi +2 : DRAU INK 2;4 

3080 PLOT XX +a, \í -2: DRAU INK 2; 4 

3065 PRINT INK 3;RT 20,0;"Mi dift 
paro ya asta afsctuado 
3090 Arint ink 2;RT 21,0;"Para c 
ontinuar pui.se una tacia" 

3095 PAUSE 0; PLOT FLASH 0jXX+4, 

3100 REM COMPR.ACIERTO ORDENADOR 
3110 LET Aa;0: LET Cc*0 

3115 FQR nal TO 21 

3120 Ir ss»s <n) AND yatin) THEN 
Gü TO 3122 

3121 GO TO 3126 

3122 LET A# *1 

3123 LET CCan 

3124 LET g <n>-n 

3126 NEXT n _ 

3128 IF Raal THEN GO TO 3140 

3130 GO SUB 7300 
3138 GO TO 1150 

314® REM Acitrto Porttvionas ? 
3145 IF Ocal OR Cca2 OR CCa3 OR 
Ce =4 THEN GO TO 3240 
3150 REM ACiartO CfUC«fO» 7 
3160 IF CC*5 OR CCa6 OR Cea? THE 


<D 


N 00 TO 3280 , „ M 

3165 IF CC*8 OR CC»9 OR Ccal0 TH 

EN GO TO 3320 ^ _ „ 

3170 REM Acitrio Submarinos c 
3180 IF C C a11 OR C C■12 THEN GO T 

3lli IF CC«13 OR CC“14 THEN GO T 

O 0 

3190 IF Ce =15 OR Ceal6 THEN GO T 
O 3440 

3200 REM Aciarto» Lanchas 
3210 PRINT INK 2;AT y,S»;'l 
3215 LET ROaflO+10 
381? LET JfiaCC: LET JBaCC 
3220 GO SUB 7600 

3226 GO SUB 7900 

3240 IF Po0al 0 THEN GO TO 3280 a , 

í?íi jK 0 ^uru B í ! s E a'|í.;?o"§| 8 i‘ 

3250 GO SUB 5200: Gü SUB 7500: L 
ET AüaflO+1: GO TO 571B 
3260 LET AOePO+1. LET PO0*1 
3265 LET JA*1: LET JBj4 _ 

3270 GO SUB 6250: GO SUB 7600: G 
O SUB 7900: GO TO 3500 
3280 IF Co1=1 THEN GO TO 332® 

3235 IF g(5)«5 AND 9í6)a6 AND 0( 
7) *7 THEN GO TO 3300 ,,. 
329® GO SUB 6200: GO SUB 7500: L 

sav-i 

||!| ^ T 5 dgÍ¿ 6 a ET M B ;3 B 76®®; ® 

O SUB 7900: GO TO 3500 
3320 IF Co2 = l THEN GO TO 3360 
3325 IF g(8)*8 AND 9(9)»9 AND gl 
10)*10 THEN GO TO 334® 

3330 GO SUB 8200: GO SUB 7800: L 
ET RÜ=A0+2: GO TO 5715 
3340 LET A0aA0+2: LET Co2al 
3345 LET JR=S: LET J8al0 
3350 GO SUB 8250: GO SUB 7600: G 
O SUB 7900: GO TO 3500 
3360 IF SO 1 = 1 THEN GO TO 3400 
3365 IF gilliall AND g(12)«i2 TH 

3370 Ü GO°SüÍ 8 6200: GO SUB 7500: L 
ET RÜ=AÜ+4: GO TO 5715 
338® LET AOaAO+4: LET SOlal 

3385 LET JRall: LET JB»12_ 

3390 GO SUB 5250: GO SUB 7600: G 
O SUB 7900: GO TO 3500 
3400 IF So2a1 THEN GO TO 344® 
3405 ir g(13)al3 AND g(14>=14 TH 
EN GO TO 3420 

3410 GO SUB 6200: GO SUB 7500; L 
ET A0*A0+4: GO TO 5715 _ . 

3420 LET AO-AO+4: LET S02-1 
3425 LET JAal3: LET JBal4 
3430 GO SUB 6250: GO SUB 7600: G 
ü SUB 7900: GO TO 350® 

3440 ir 303a1 ThEN 00 TO 3480 
3445 IF 9(15)a15 AND 9<16)al6 TH 
EN GO TO 3460 

3450 GO SUB 6200: GO SUB 7500: L 
ET ROaAO+4: GO TO 571S 
3460 LET A0=AQ+4: LET 503al 
3465 LET «JA ■ 15 .LETJB «18 
3470 GO SUB 6250; GO SUB 7600: G 
Ú SUB 7900: GO TO 3500 
348® REM COMPROBAR TOTAL ACIERTO 
360® ir P0®>1 RND CO 1 >1 AND Co2* 
1 AND SOl-1 AND Soa»l AND Sp 3 «l 
AND g í17)*17 RND 9*18)*18 AND |t 
19) =19 AND 9 i20) «80 AND 9Í21) »2l 
THEN LET ÜP«0: GO TO 9915 

3510 GO TO 3000 „ _ 

4200 IF GG*0 THEN GO TO 4230 
4205 FOR u*n TO n+2 
421® LET SCu)a® 

4215 LET t tu)-0 









423® RETURN 

425® ZF GG>0 THEN Gú TO 429® 

4255 FOR u =n TO n+1 
426® LET s(u)a® 

4265 LET líu) «0 
427® NEXT u 
428® RETURN 

4300 REM 5UBRUTINR PARCIAL RSIG 
NACION JUGADOR 
431® LET SGe® 

432® GO SUB 4400 
4325 GÜ 5UB 4508 
4330 GO SUB 560® 

4332 GÜ SUB 485® 

4335 IF GG«1 THEN GO SUB 456®: G 
O TO 430® 

4337 GO SUB 4458 

4348 PLOT FLASH 1; INK l;xx+4,W + 

2 

4345 GO SUB 480® 

435® IF THEN GO TO 4360 

4355 GO TO 4375 
436® GIROLE OUER l;xx+4,w+4,2 
4365 PLOT FLASH 0,xx+4,w+2 
4367 PLOT OUER l;xx+4,W+2 
437® GO TO 432® 

4375 IF LL»1 THEN RETURN 
438® 90 SUB 4650 
4385 RETURN 

448® REH COORDENADA x| POSICION 
BARCOS JUGRDOR 
4405 FLASH 1 

441® PRINT INK 1;RT 21,®;"Letra 


f >CHR| 11 
O 4405 


4415 INPUT X$ 

4420 IF X $ <CHR S 97 OR X! 

8 THEN GO SUB 4700; 

4425 FLASH 0 
443® GO SUB 4600 
4435 RETURN 

445® REM INDICAR COORDENADA 
4455 CIRCLE INK 1; XX t4 , U +4,2 
4465 RETURN 

458® REH COORDENADA 9 POSICION 
BARCOS JUGADOR 

451® PRINT FLRSH 1, INK 1; AT 21, 
8;“Numero ? " 

4515 INPUT y 

452® IF y<l OR y>14 THEN GO SUB 
4700: GO TÜ 4505 
4525 FLASH 0 

4530 PRINT AT 21,0; "NufíiS f O "¡y 
4535 RETURN 

4550 REH INDICAR COINCIDENCIA 
4555 PRINT AT 20,0j" 

456® SRIGHT 1 

4565 PRINT AT 21,0,"Coincidtnci a 



4570 BEEP 1,0: 8RIGHT 0 
4575 PRINT AT 21,0," 

4580 RETURN 

8EÍJ,.5 C £5 E 5‘ letra asignada 

4605 PRINT AT 20,8;"Letra ";x« 
4610 RETURN 

465® REM ? HORIZONTAl/UERTICRL 
4655 PRINT INK 1; AT 28,0;"Como ( 
odiseas? '• 

4660 PRINT INK 2;AT 21,0;"Hofizo 
ntalaH o uerticalau " 

4665 INPUT uf 

4678 IF wíoCHRi 118 AND W*OCHR 
* 104 THEN GO TO 4655 

4675 PRINT RT 20,0;" 

4680 PRINT RT 21,0¿" 

4888 RETURN 

4700 REM INDICAR FUERA DE RANGO 

4705 FLASH 0: BRIGHT 1 

4710 print RT 21,0;"Futra dt ran 


» 


AND y*t(i) THEN 


.¿ÍS BEEP 1,0: BRIGHT 0 
4720 PRINT RT 21,0;" 

«I 

4730 RETURN 

4750 REM BORRAR COORDENRDA 

4765 CIRCLE OUER 1;XX+4,w+4,2 
4760 PLOT FLASH 0;xx+4,lí+2 

4766 PLOT OUER 1;XX44,W42 
4770 RETURN 

4800 REM ? CONFORME POSICION A 
5IGNACI0N JUGADOR 
4805 PRINT RT 20,0;" 

481® PRINT INK 1;AT 21,0;"E*t» C 
onformt ? No>N Si«5 " 

4815 INPUT q| 

4817 IF dioCHR* 115 AND q*<>CHR 
* 110 THEN GO TO 480® 

482® PRINT RT 21,0;" 

4625 RETURN 

465® REM COMPROBAR COINCIDENCIA 
INDICACION COORDENRDA 
4855 FOR i>1 TO 20 
4860 IF ssftt (i) 

LET GG»1 
4885 NEXT i 
4870 RETURN 

4900 REM COMROBAR COINCIDENCIAS 
49®2 PRINT FLASH 1; INK 3;AT 2®, 
13;"ESPERA" 

4905 FOR IBan-1 TO 1 STEP -1 

491® IF s(p)atún) RND ttp)at(m) 

THEN LET GG*1 

4928 REH ESTAN PEGADOS 7 

4922 IF s (p) -las (m) AND t(p>at(m 

) THEN LeT GGal 

4925 IF ft(p)4laS<RO AND ttpíaKft 
3 THEN LET GGal 
493® IF ft(p)a»(rn) AND 
i THEN LET GGal 

4935 IF Kp)»s(m> ANO tip)+laWm 
) THEN LET GGal 

494® REM SE TOCAN DE UERTICES 7 
4945 IF ft (P) -la»(m) AND t(p)-l«t 
tffi) THEN LET GGal 
4950 IF S(P) -lat (») 

Cid! THEN LET GGal 
4955 IF S (P> ti»* (•) 

CM) THEN LET QG*1 
496® IF » (P) ti-» ti») 

(m) THEN LET GG al 
4985 NEXT n 

4988 PRINT FLASH 0;AT 20,13;" 


AND 1(P)+lat 
AND l (P)+i«t 
AND t (P)-l>t 


4990 RETURN 

559® REM COORDENADA (X) ASIGNAC. 
JUGADOR Y DISPARO ORDENADOR 


3 



























5602 

56(35 

551® 

5515 

552® 

5625 

563® 

5635 

561® 

5615 

565® 

5655 

566® 

5565 

557® 

5675 

568® 

5685 

S700 

571® 

5715 
DE 

5716 
5780 
5725 
5730 
5735 
5737 
571® 

5712 
5711 
5716 

5713 
5750 
577® 
5775 
5780 


IF X4*"4" TNEN LET 11*17 
IF X 4 * b" THEN LET 11*18 
IF X4*‘C" THEN LET 11*19 
IF X 4*"d " THEN LET 11*2® 

IF X t ="•" THEN LET 11-31 
IF x4*"f” THEN LET 11*22 
IF x**"9" THEN LET 11*23 
IF x*o"h" THEN LET 11*21 
IF X 4*"i" THEN LET 11*25 
IF X4*‘j" THEN LET 11*26 
IF X$*'t" THEN LET 11*27 
IF X4*" l" THEN LET 11*28 
IF xTHEN LET 11*29 
IF X4*"n" THEN LET 11*30 
FOR d = 17 TO 3® 

LET l *d-17 

IF si*d THEN LET XX»136+l#8 
NEXT d 
GO SUB 1300 
RETURN 

REM PROBRR TOCADOS BARCOS 
JUGADOR POR EL ORDENADOR 
PRINT INK 3;RT 16,30;AO 
LET T1*Ti+1 

IF Too® THEN GO TO 5880 
LET Cd *INT í RND *8)+1 
IF Cd = 1 THEN RESTORE 585® 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

FOR 


Cd *2 
Cd =3 
Cd *1 
Cd *5 
Cd =6 
Cd =7 
Cd *3 
n*l 


READ D 
LET h ín ) 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
TO 1 


RESTORE 5852 
RESTORE 5351 
RESTORE 5856 
RESTORE 5858 
RE5T0RE 586® 
RESTORE 5862 
RESTORE 5881 


5785 NEXT n 
5790 RESTORE 
5825 LET Tr*l 
5830 LET TO *h (Tr> 

5835 LET li-nf: LET y.yr 
5810 LET T r *T r +1 
5850 DRTR 1,2,3,! 

5852 DATA 2,1,1,3 

5651 DATA 3,2,1,1 

5856 DATA 1,1,3,2 

5658 DATA 1,3,1,2 

5660 DATA 3,1,2,1 

5862 DATA 1,3,2,1 

5861 DATA 2,3,1,1 

588® REH SEGUIR EN HXSMR LINEA 

5885 IF TO *1 THEN GO TO 595® 

3890 IF TO *2 THEN GQ TO 5983 
5895 IF To *3 THEN GQ TO 601® 

590® IF To =1 THEN GQ TO 601® 

5910 REM PROBAR AL REYES 
5915 LET ss=iir: LET y*yr 
592® IF TO *1 THEN LET TO*2: GO T 
O 5880 

5925 IF To *2 THEN LET TO*l: GO T 
O 588® 

593® IF TO *3 THEN LET T0»4: GO T 
O 583® 

5935 IF To *1 THEN LET To=3: GO T 
O 588® 

5950 REM PROBAR TOCADO ARRIBA 

5955 IF y < *1 THEN GO TO 5830 

5960 LET u *y-1 

5970 GO Tu 3055 

5980 REM PROBAR TOCADO ABAJO 

5985 IF y>*11 THEN GO TO 5830 

5990 LET yty+l 

6000 GO TO 3065 

6010 REH PROBAR TOCADO IZQUIERDA 
6015 IF s* <*17 THEN GO TO 5830 
802® LET *£«&&-! 

603® GO TO 3065 

601® REH PROBAR TOCADO DEAECHA 
6015 IF fts > *3® THEN GO TO SB30 
606® LET slass+1 
608® GO TO 3®66 

6100 REM INDICAR TOCADO JUGADOR 


611® PLOT X +4, W +1: DRAU INK 2,0, 
6 

6120 PLOT X + 1,W +1: DRAU INK 2,6, 
0 

6125 CIRCLE INK 2;xtl,w+l,2 
6130 RETURN 

615® REM INDICAR HUNOIDÜ JUGAD. 

616® FOR n ■ JA TO JB 

6170 PRINT INK 2;fiT y(n) ,xín);'I 

6180 NEXT n 
6190 RETURN 

62®0 REM INDI. TOCADO ORDENADOR 
621® PLOT xX +1, W +1: DRAU INK 2;0 

,6 

622® PLOT XX+l.w+l: DRAU INK 2;6 

,® 

623® RETURN 

625® REM INDI. HUNDIDO ORDENAD. 
6251 LET To *® 

6256 LET Tr*®: LET Ts-0 

6260 FOR n *JA TO JB 

6270 PRINT INK 2, RT t ín ) , S í n ) ; "■ 

ki 

6280 NEXT n 



P u e d s s j u 9 a r a p u n t- o i q hundí r 

+ j i ; í 4 

l _ a =■ P L = 

■Jugando a puntos, rnaxi roo dis 

P a r o s a n tota l 

p o r t a v i o n £ s “ 4 p u r¡ t o s 
Cru cero = 5 Punto 5 

5 u b ro a r i n o = 5 p u n t o s 

L a n c h a = 10 p u n t o s 

El t a b l e r o a z qu i e r d o s o n l o i d 1 s 

P 5 r os d e l j u gado f y el d e r e ■: h o 
del ordenador 


o e ba JO de l 



os sa Ld ran 
s u m a n d q y 
e r e o t u a d o s 



®- 


629® RETURN 

630® REM MINIMO JUEGO R PUNTOS 
6305 GO SUB 770® 

6310 PRINT FLASH 1; INK 2;AT 19, 
6;"FIN JUEGO A PUNTOS";AT 20,3;" 
DESDE AHORA HUNDIR TODOS" 

6320 PRINT INK ljRT 21,0;"Para C 
■ ontinuar pulsa una tacia " 

6330 PAUSE 0 
6335 FLASH 0 
6310 GO SUB 770® 

6315 RETURN 
7300 REH INDICAR AGUA 
7310 GO SUB 7700 
7325 BAIGHT 1 

7330 PRINT RT 20,11;" AGUA " 
7335 PRINT RT 21,11; -*-*-**■" 
7310 BEEP 1,-2: BRIÓHT O 
7350 GO SUB 7750 
7360 RETURN 

7500 REM INDICRR TOCADO 
751® GO SUB 770® 

7515 BRIGHT 1 

7520 PRINT AT 20,12.;" TOCADO ” 
7525 PRINT AT 2 1, 12 ;"--*■-*** " 
7530 FOR T *1 TO 3 
7535 BEEP ,3,T: BEEP .3,0 


















7540 NEXT T 
7550 BRIGHT 0 
7SS5 GQ SUB 7750 
7560 RETURN 

7600 REM INDICAR HUNDIDO 
7610 30 SUB 7700 
7620 BRIGHT 1 

7625 PRINT AT 20,12;" HUNOIDO " 
7630 PRINT AT 2 1 , 12 ; "sc** 3 = = = «" 

7635 POR T«1 TO 4- 

7640 BEEP .2,14; BEEP .2,1 

7645 NEXT T 

7650 BRIGHT 0 

7655 QO SUB 7750 

7660 RETURN 

7690 REM BORRAR RESTO IMPRESO 
7700 PRINT RT 18,0; M 

7710 PRINT AT 19,0," 

+ 1 

7720 PRINT RT 20,0;" 

I* 

7730 PRINT RT 21,0;" 

II 

7740 RETURN 


Vt 


roqrcuwxs 


7750 PRINT RT 20,11;" 

7760 PRINT AT 21,11;" 

7770 RETURN 

7800 REM FIN PARTIDA POR PUNTOS 
7805 GO SUB 7700 
7810 IF AO>AJ THEN GO TO 9B50 
7S20 IF AJ <A0 THEN GO TO 9915 
7830 GO TO 9860 

7850 REM SONIDO EMPATE Y GANADOR 

7855 FQR n»l TO J 

7660 BEEP .1,10: BEEP .1,10; BEE 

P .1,15: BEEP .1,10: BESÉ» .1,6: 

BEEP .1,10 

7365 NEXT Pi 

7870 RETURN 

7900 REM ANULAR DISPAROS DE ORDE 
NADOR ALREDEDOR HUNOIDO JUGAD. 
7920 FOR c.JA TO JB 
7930 IF AtC)»l7 THEN 00 TO 7940 
7935 LET O <4 ( O -17 , t < O) •! 

7940 IF siO-30 THEN GO TO 7950 
7945 LET O (Ate) -15, t i O) «1 
7950 IF tíCl-1 THEN GO TO 7960 
7955 LET O (A ( C l-16,1 ( C ) -1) «1 
7960 IF t(C)*14 THEN GO TO 7970 


:L 


*1 juegas a puntes, el contador 
d e á is p a ros ira r esta n do l os dí s 

P a ros h u a puedan 

Un a v a z t £ r m i n a d o £ l j u £ 9 o a P u n 
tos, p d dras e L e gir c on tin u a r e i 
íís i 3 ra o 

•5 i j u £ gas a h y ndi r toda La f í o t = 
£ i con t a do r 3 o lo su fh ara ios- d 1 s 
p a r o s £ r £ c t u a d o s 

E j T o r den a d o r ai f 1 n a L i z a r L a p a r 
ti da te dirá, donde teni a sus 
5a - eos 



Pri m e r o deberás situar en posic i 
On t us barcos # 


ir L .ordenador después se asignara 
La posición de ios suyos. 

. La flota estara formada por: 

1 Po r t a v iones de 4- recuadro s 
¿ cry ceros de 3 recuadros 
3 Submarinos de 2 recuadros 
5 Lanchas de I recuadro 

Los disparos serán alternos , ex 
c e p t o cuando uno haga blanco que 
tirara de nuevo, y no se contar 

L^___ 




7965 LET 0<AtC)-15,t(C)+1)■! 
7970 IF Atela 17 OR t(C)«l THEN £ 
O TO 7980 

7975 LET Ot& tC) -17,t(C)-1) «1 
7980 IF Atela17 OR t<C)»14 THEN 
GO TO 7990 

7985 LET O ÍS i C)-17,t(C) +1) «1 
7990 IF 4ÍC)a30 OR tic)«l THEN C 
O TO 8000 

7995 LET O ts<CÍ-15,t <C) 

8000 IP Ate)»30 OR t(C) 

GO TO 8020 

3005 LET 0(A te) -15,t(C)+ 11 ■1 
NEXT C 
RETURN 

REM INDICAR DISPAR 
PLOT FLASH 1; INK 
PLOT x+2,w+2: DRAU 


6020 

3030 

3390 

3395 

8400 

4 

3410 

-4 

6412 

9370 

9380 

9390 

9400 

9410 


1 ) >1 
14 THEN 


JUGADOR 
; X+4, DI +4 
INK 2;4, 


PLOT X +2,V-2: DRAU INK 2;4, 
RETURN 

REM FORMACION DE TABLAS 
FOR n-0 TO 112 STEP 8 
PLOT n,167: DRAU 0,-112 
PLOT 0,167-n: DRAU 112,0 
NEXT n 




























































































9432 PRINT INK 1;AT 0,0;"ABCDEFG 
HIJKLMN ABCDEFQHIJKLMN" 

9430 FOR n ®1 TO 14 

9440 PRINT INK 1;RT n.lBjn 

9450 NEXT n 

9460 FOR n*136 TO 348 STEP 8 
9470 PLOT n,167: ORAU 0,-113 
9480 PLOT 136,303-n: DRAU 113,0 
9490 NEXT n 
9500 RETURN 

9850 REM IGUALDAD OE RESULTADOS 
9853 PRINT INK 1;RT 16,B;AJ;AT 1 
6,30; INK 3;AÜ 

9855 PRINT FLASH 1¡ INK liflT 18, 
3;" HEMOS EMPATADO A PUNTOS " 
9857 00 SU8 7860 
9860 00 TO 9895 

9880 REM FLOTA HUNDIDA ORDENAD. 
9882 PRINT INK 1;AT 16,8;AJ 
9833 90 SUB 7700 

9885 PRINT FLASH lí INK 1;AT 15, 
3;" ENHORABUENA ME HAS GANADO " 
9387' GO SUB 7860 
9890 IF JP>0 THEN GO TO 9940 
9895 PRINT INK 2; INUERSE ljfiT 3 
0,3;" Contínuii 14 pirtidi 7 s/n 

9900 INPUT q| 

9903 IF q*oCHR| 110 AND q»OCHR 

S 115 THEN GO TO 9895 
904 IF q$="S" THEN GO TO 92S 
9912 GO TO 9923 



9915 PRINT INK 3;AT 16,30;AO 

9916 GO SU8 7700 

9917 PRINT FLASH 1; INK 2¿AT 18, 
4;"TE HE GANADO LA PAATIDA" 

9918 BEEP .3,-10: BEEP ,1,-15: 
EEP .1,-15; BEEP .1,-15: BEEP . 

■-14: BEEP .6,-15: BEEP .3,-11: 
BEEP .6,-10 

9920 IF JP«1 THEN GO TO 9695 
9923 PRINT INK 4; INUERSE 1;AT 3 
0,2;"Fijate donde tengo Pie Barc 
os " 

9935 FOR n=l TO 31 

9938 IF l(ní»n THEN GO TO 9935 

9930 PRINT INK 3;AT gín) , xtn);"■ 

9935 NEXT n 
9940 GO SUB 7730 

9950 PRINT INK 3; INUERSE 1;RT 8 
1,0;" Deseas combatir de nuevo 7 
s/n " 

9960 INPUT O* 

9962 flash 0 

9965 IF GSoCHRt US AND G*OCHR 

S I10 THEN GO TO 9940 
980 IF O*»"*" THEN GO TO 10 
9985 CLS 

9987 FOR n»6 TO 1 STEP -1 

9990 PRINT FLRSK 1 ; INK n; INUER 

SE 1;RT 11,10;"ADIOS AMIGO" 

9993 BEEP .3,16-n 
9995 NEXT n 
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FOR TELEFONO 

* más fácil, 
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Telf. (91) 733 7969 

7 días por semana, 34 horas a su servicio 
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^ VIDEO- GAfnE/ 

‘CLUB Df VIDEO JUEGOS 

^GflíriE/ CLUB 

•CLUB DE USUARIOS, COMMQDORf-G4. 
SPECTRUM Y ORIC 


Cjames Qlub's 

kto NACIONAL DE CLUBS 

Accpinmoi nutvoi grupoi federado*. 
IninejOFoblei cotdicio-rttí y ojeioramitntc, 

CONSULTENOS MI 


\^COHDiC/OMESESPECiALES^aCentrosáeenseñanza, alumnos de 

informática y clubs de usuarios. 


m 


PONEMOS A SU DISPOSICION «EL CATALOGO- 
DE SOFTWARE MAS Y MEJOR SURTIDO DEL 
MERCADO PARA SPECTRUM. COMMOVORE Y ORIC. 




verano, so o 


SKEKlMSLá- 

CP 80 PT ^ 



il 80 mhíiMi aa Ht da canden* «pañíes, «**>>—"* omptitik, 

SHIHWA CP 0 & F.-T es le nueva impresora. Gao teaiáoqja actual y preoo conpettiVD. o&eoe las 
dos características que hay dia hay que esop a m buena npesofa; &abtbdad y calidad de 
irnpreaóri 

Paro la 5 HWWA CPfttF/T no se queda ahí: ofrece una rescíunm de £ 4 Cr pumos poi linea, juego 
de caracteres espades y una citan variedad de posbiisdades en ¡a topean de tenes: oOTnaJ. 
ooEBpmnidff. doblé ancho, sipei índices aihindices redunda ec La mpesota se man a ra cao 
infería® m CENTSONICS. Opaooalmente.spuede ocuedar un Difería® RS ¿32 

f. OFERTA 

55 200- 


e ocTuore 


DATALEC 

P- V- OFERTA 

26 320 - 


B jnauKJi DATALEC. cotí su pantaüa de Mm vetde MI de 12 pulgadas, es la paíitalk de 
VKiakaaiíi ideal para presemaaófi de dates y gráficos en alta redición 


A + L 



centro de formación. Informática general y 
BASIC. Prácticas con COMMODORE 64 
INFORMACION : ci Manso, 17 te!.: 325 87 71 


SE BUSCAN; los mejores PROGRAMADORES. 

_ Pagamos excelentes roya!fies. Garantía y seriedad tota!. 

Nombre. Dirección ....--— 

Población .... Provincia ..... 

Distrito Postal ... Teléfono ...... 


BOLETIN DE INFORMACION Te!.-. 219 10 90 

remitir a 

SOFTWARE CENTER 
Avda. Mistral 10 1 D izq.BARCELONA 



08015 





























Aro^iA)©' 

Si es usted un afortunado que dispone de una 
variada colección de cintas de programas: sí es un 
poco desordenado \ si tiene un microdrive, le ofrece¬ 
mos la posibilidad de que ponga su vida en orden al 
menos por lo que al catalogo de programas se refiere. 

Con este programa, diseñado especialmente para el 
almacenamiento de datos en microdrive, puede llevar 
su registro particular de programas, indicando código, 
nombre, si es inglesa, e incluso si trata de una cinta 
original o copia. 

Recuerde no retirar la cinta del microdrive hasta 
haber finalizado sus operaciones \. en caso de BRE IA 
cierre ios ficheros (CLOSií # 4) para que no se le 
escape nada (léase para que todo quede grabado). 

Por supuesto, le aconsejamos que amplíe el programa 
para • indicar en sus futuros datos el número de 
todospectruní de donde lo obtuvo. 

Autor: Javier Garda An/, I6K. 

X RE: ti JRUIER GRRCIR hRIZ -198 
4 

S CLERR : CL5 ; 8QRDÍR 0: PRR 
ER 0: INK 7 

10 CL5 : PRINT RT 

SSSS3359lf3I«lÉIt^llia£SI " , RT 21 


, 0, " t>3«3«*iiaBa8aiiiiiinifiiii 

”11 FOR 5■1 TD 20; PR1NT RT 5,0 
: "ti" ; RT Si31;“iri NEXT S 

17 PRINT RT ts un pr 

ogrimi para ««a un a cenar La 

lista dt cintas a«qu« litnt, %í 
ga todas las tittinstrucc i onss 

como s« indica UU 

««RECUERDE : 
««-Tener sitmpr 

e cartucho puestofctt-Trabajar en 
mayúsculas, ««-Rl añadir fi 

chas desaparece uu el fichero a 
ntiguo. ««-Por la iroprt 

sora no aparecen «« or/cop ni si 
es inglesa, ««-En caso de * 

srerk debe cerrar«a ios ficheros 
(CLGSE* 4)" 

18 PRINT RT 10,1; "PUL5R TEGLft M 

19 GQ SUS 1000 

20 CLS ; PRINT RT 0 # 0;”*■«***• 

t«M81BIIBt3SMBKBBIE3ia3M ,< ; RT 2 1 

3± ¡5 i X " 

25 FOR 5■1 TQ 20: PRINT RT S,0 
; J, « M ; RT 5,31; “tt" ; NEXT S 

32 FLASH 1: PRINT RT 5,4,"R"jR 
T 3,4.;"B"jRT 11,4;"C";RT 14,4 i “D 
' : FLRSH 0 

3S PRINT RT 5,6;“CREAR FICHERO 
";RT 8,6;“LISTAR FICHERO";RT 11, 
6, “IMPRIMIR FICHERO tcon rsJ M ;fiT 
14,6; "AÑADIR FICHAS 1 ' 

40 LET 0 8*INKEY8: IF U8 = THE 
N 00 TÚ 40 

45 IF L*a''R" THEN SO TO 8(3 


B©#© 

Aunque esté en baja forma o incluso aunque no sea 
partidario del boxeo, nos permitimos sugerirle que 
elija contrincante, se meta en el cuadrilátero \ 
perfeccione su gancho. Al principio su oponente le 
hará besar la lona dejándole KO con gran facilidad, 
pero es sólo cuestión de tiempo. 

Dispone de tres asaltos para machacara su oponen¬ 
te v ambos púgiles son ambidiestros, es decir, preste 
atención tanto a su izquierda como a su derecha. El 
árbitro es muy severo y no le admitirá golpes bajos. 

La resolución gráfica es muy buena, no faltando la 
chica que anuncia —cartel en mano— el número de 
asalto en el descanso. Buenas gráficas, buen juego > 
buen sistema para desahogarse. 

Notas gráficas 

HéGDEFGHIÜKLMNQPORSTU 


Autor: P, Stanley 


16K 


LS 


1 6ÜR&ER 5: PRPER 3: INK 0: C 

2 REM 0 P.STRNLEY 

5 LET LET i2»Sl 

8 GQ 5UB 7000 
10 GÜ SU6 «000 
15 LET round «1 
20 GD SUS «500 
30 GQ SUB «560 


52 PRINT RT 17,2, round 
63 8EEP *25,0: BEEP ,25,0 
65 LET y=2: LET X=7: LET yl*y: 
LET X1 

70 LET 9*23: LET f*l?; LET 9 I» 
9 : LET fl*f 

90 LET tw*3: LET t»»2 
95 LET 

100 PRINT RT y 1,x1;" “i RT y 1 + 1 

,X1,“ " ¿RT yi+a,xl," INK a; A 

T y,x,PRPER 0; RT y+l,x;" " 
; PRPER 6; RT y +2, x ; "i« 11 : LET yl» 

u ^ X 1 — X 

Í20 PRINT RT f1,91;" “j hT t 1+1 

,91 + 1 ;“ ”;RT i 1 + 2 , 91 ;" ";RT f, 9 
PAPER ?;RT 1 +1,9 + 1; "l " i P 





















50 IF U|>"B" THEN GÜ TQ 400 
5S IF Uta"C" THEN GO TO 600 
S0 IF UÍ>"O" THEN GO TO 800 
75 GO TO 40 

’9 STOP : REM tlMItttlIllll 


© 


tlttltt 

80 CLS 


INPUT 'NOMBRE OE EL F 
ICHERQ?:",P|; OPEN 84 .; " M " ; 1; P | 

90 GO SU5 000 

100 FOR A>3 TO 19: PRINT RT fl,l 

;" ";RT fi,6;" 

';AT fl ,36, " “¡RT A, 29;" 

£ TMOl ¡T " Si~\í 


> rn i n j cu i a rii n j 

105 INPUT "CODIGO?:"iC: IF C>99 
99 THEN GO TO 200 
110 INPUT "NOMBRE?:"; NI: IF LEN 
Ni>19 THEN GO TO 110 
120 INPUT "ES XNGLESR?:",II IF 
LEN I|>2 THEN GO TO 120 
130 INPUT "ORIGINRL O COPIA?:"; 
OI: IF LEN 0|>2 THEN GO TO 130 
140 PRINT RT fl , 1 ;C, RT A, 6 ,N|;AT 
A,26;II,RT R,29;0$ 

150 INPUT "ES CORRECTO?(S/N); 
R|: IF R|>"N" THEN GO TO 105 
160 PRINT 84;C J Nt II'QI 
170 NEXT R: lF R>19 THEN LET R= 
2: NEXT R 
190 STOP 

200 PRINT 84;C: GLOSE 84; CLS : 
PRINT "FICHERO GRABADO"; GÜ TO 
20 

300 CLS ; FOR 3=0 Tü 21: PRINT 


RT a , 0;"i";RT a,25,"i";RT a,5;"l 
" iRT a,26;" I RT a,31,"("; NEXT 


310 LET R * = '■+■ 

--+ — — +-4." 


rr©q 


rQMJjs 


320 PRINT RT 0,0;fl|;RT 2,0,R*;R 
T 21,0;fl $ 

330 PRINT RT 1,2;"000",RT 1,12; 
NOMBRE",RT 1,26,"IN";RT 1,2$;"O 
R"; RETURN 

4.00 CLS : INPUT "NOMBRE DE EL F 
ICHERÜ?;";Z|: OPEN 84;"M";l;Zt 
410 GO SUB 300 

4-20 FOR R»3 TO 19: PRINT RT A,1 
1 " "; RT R,6; " 

RT R , 26; " " ; RT R , 29., " " 

425 INPUT 84,0; IF C>9999 THEN 
GO TO 4.S0 

430 INPUT 84,N|, ; I $ ;Q I 
440 PRINT RT fl,l;C;AT fl,6.Nt;RT 
R,26 ; II,RT A, 29;OS 
450 NEXT R: IF R>19 THEN LET As 
2. IF R = 2 THEN GO SUB 1000 NEXT 
R 

460 NEXT R 
470 STOP 

480 GLOSE 84: PAUSE 300; GO TO 
20 

600 REM ROUI TENDRIA QUE CARGAR 
SE EL C/M OE Lfl IMPRESORA SI UTI 
LIZAS INTERFRCE: PRINT ; PRINT " 
ESPERA '* 

620 INPUT "NOMBRE DEL FICHERO?; 
‘¿Fl; OPEN 84; "M"j 1; F« 

625 LPRINT " LISTADO OE PROGRflM 
AS" 

630 INPUT 84;C 

640 IF C-9999 THEN GO TO 690 
650 INPUT 84;N$;II.OI 
660 LPRINT C;" ; N| 

670 GO TO 630 

690 GLOSE 84: GO TO 20 


RPER 6 ,RT f +2,9 ;"1 


LET g 1=9 
-T 


LET fl.í: 


130 LET 14*14-2: IF ls «0 THEN L 
ET tfíiatm- 1 : LET is >60: IF t»*-l 
THEN GO TO 8500 
150 PRINT RT 17,27;tltt;í"0" 
RND U <10) ; ti 

400 IF IN 64510=254 THEN GO SUB 
1000 

410 IF IN 57343 >254 THEN GÜ SUB 
1100 

450 IF 9 *X + 1 THEN IF RN0>4k THE 
N GÜ SUB 2000 

S00 LET ^>y+ilN 61436=239 AND U 
<17)-(IN 61433>247 RND y> 2 ) 

510 LET X =X + íIN 61438 >251 ANO X 
<22:-(IN 63486=239 RND X>7) 

550 LET f * í + INT í RND *2.5 ) - INT ( 
RND*2.5) + if <y ) — C F > y > 

553 IF r <2 THEN LET f>2 
555 IF 0 17 THEN LET f >17 
S60 LET 9 *g + INT ÍRND#2 .5)- INT f 
RND*2.5) +i 9 <X +2) -(9 >x +2) 

563 IF 9 <X + 1 THEN LET 9 =x + 1 
565 IF 9 >23 THEN LET 9 >23 
570 IF NÜT 9 THEN IF X>20 THEN 
LET 6>1 

560 IF a THEN LET «> 4 -íe~l AND 
X <201+1: IF ario THEN GO SUB 300 
0 

690 BEEP .01,-20 
700 GÜ TO 100 

1000 PRINT INK 2;AT y.x+i;"^ 1 ’: 
BEEP ,1,20 

1010 PRINT INK 2;AT y,x + l;"* " 
1020 IF y*f + l RND x = 9-1 THEN LET 
4 1=41 + 1 : BEEP .04,0; PRINT RT 8 
. 2 ; si 

1030 IF s i * k 2 THEN GO TO 6000 
1090 RETURN 

1100 PRINT INK 2;AT y +2, x +1; "m " 

; BEEP . 1,20 



1110 PRINT INK 2,RT y+2,x+l;"* " 
1120 IF ysf -1 RND x =9 -1 THEN LET 
S 1 *S1+1: BEEP .04,0: PRINT RT 3 

,2; s 1 

1130 IF sl>X2 THEN GO TO 6000 
1190 RETURN 

2000 IF f <y THEN GÜ TO 2100 
2010 PRINT RT BEEP . 

1,30 

2020 PRINT RT f,g-l;"l 
EN 


2030 IF t >y +1 THÉN LET 42>S2+1 
B||P «04.0: PRINT RT 3,28,42 
2035 IF S2 = M THEN GO TO 6500 
2040 RETURN 

2100 PRINT RT f+2,fl-1;": BEEP 
.1,30 

2110 PRINT RT f+2,9-1;" »" 

2130 IF f *y-1 THEN LET 42*42 + 1: 
BEEP .04,0: PRINT RT 8,23,42 
2135 IF S 2 > k 1 THEN GO TO 6500 
2140 RETURN 

3000 PRINT RT yl,xl; u ";RT y 1 + 1 
,xl; " ; RT y 1+2 ,Xl; " 

3010 FOR x * 19 TO 12 STEP -1: LET 
X 1*X 

3020 PRINT RT yl.xl; INK 2 
RT y 1+2,XI, "Jta", RT yl+l,xl; PAPE 
R 0; INK 2¿"7.; PAPER 6," "; PRP 
ER 2; INK 6,"’,"; PAPER 6," , RT 

yl.xl+2, INK 4;"» ";RT y 1+2,x1+2 


3022 BEEP .02.0 
3025 NEXT X 

3030 PRINT RT yl,Xl+2; , ‘ " ; RT yl + 

l,xl+2," "; RT yl + 2,xl + 2;" " 

3040 LET e= 0 : RETURN 

.9 


s ?S®»P ftI NT RT í , g RT f+2, 

; W J INK 2, RT f+l,g;'‘l"; INK 
3l,P7,INK 6 ; PAPER 3; ’ , ^" 
6010PRINT FLASH 1 ; RT 1,V; "BIEN 
BOXEADO. ESTR K.Q.": BEÉp .2,-20 


II 















SOO CLS : INPUT "NOMBRE DEL FIC 
MERO ANTIGUO?M|: OPEN 84;"M"; 

1 élS INPUT "NOMBRE DE EL NUEUO F 
ICHERÜ?;";K*; OPEN 85;"M",1¿KÍ 
820 INPUT 84; C; IF C*>9999 THEN 
GO TO 650 

830 INPUT 04; N*,I *; O* 

340 PRINT 05;C'N*'I*' OI 
350 00 TO 820 

350 GLOSE «4: CLS : GO SUB 300 
870 FOR A-3 TO 19: PRINT RT fl ( l 
;" ";RT R,6;" 

",at a,2B; " ";RT R,29;" " 

880 INPUT "CODIGO?: ";c: IF C«99 
99 THEN GO TO 970 
890 INPUT "NOMBRE?N»; IF LEN 
Ni> 19 TMEN GO TO 390 
900 INPUT "ES INGLESA?: " ; II: IF 
LEN Ii> 2 TMEN GO TO 900 
910 INPUT "ORIGINAL O COPIA?:"; 
0|: IF LEN 0*>2 THEN GO TO 910 
920 PRINT RT R,l t C;RT A, 6; N *; RT 
A.fie.If.AT A,29,0* 

930 INPUT "CORRECTO?:";R*: IF R 
*«"N" THEN GO TO 380 
940 PRINT «5;C'N*'li'Of 
950 NEXT A: IF A>19 TMEN LET A- 
2: NEXT A 


8Este es un p 
8aimacenar la 
oque tiene, s 
8inttruccione 
8 

«RECUERDE: 
«-Tener siemp 
«-Trabajar en 
«-Ai anadir f 
« e l fichero 
«-Por la iwpr 
a or/cop ni s 
a-En caso de 
a ios fichero 
« 

8 

a 

«PULSA TECLA 


rograma para 
lista de cintas 
iga todas tas 

s como se indica 


re cartucho pues 
magos cu tas. 
i ce,as desaparece 
antiguo. 

esora no aparece 
i es ing tesa . 
“BREAK debe cerr 
s iCLOSE» 4) 


8 
8 
8 
8 
8 
8 

tO 8 

8 

8 

8 

n 8 

8 

ara 

8 

8 

8 

8 

8 




960 STOP 

970 PRINT 85; C; CLOSe 85: CLS : 
PRINT "NUEUO FICHERO GRABADO" 


6020 GO TO 6600 . Tiiw _ M— 

6500 PRINT ATy.x-l; INK 
. AT g+t.X-l; "«nV; INK 6; PAPER 

2; ñT y + i, x-2; paper 6, ink 2 

6sH ÉRINT a4 1 > 7; FLASH 1; "MALA 
SUERTE- K . O. I ^ ^ , 

6600 FOR f «1 TO 200: NEXT f 
5620 CLS : IF tl>ig OR s2)ll THE 
N GO TO 6700 _ u ,, 

6630 PRINT "Bien hecho i Acabast 

e con ";bi;" en "¡round;" rondas 

** 

¿640 PRINT INK 3'"El reSUttidO f 
ue de ";*l; puntos" ,"por tu par 
te y ",s2jpor b* 

6650 PRINT INK 2 ' f ‘De be ñas de es 
coger un rival masfuerte." 

6660 GO TO 6730 

6700 PRINT "Mata suerte ! Te aru 
quitaron en 11 ; round, rondas, 
6710 PRINT INK 3'"El resultado f 
ue de ";si;” puntos","por tu par 
te u "¿sa;" por ";b* 

5740 PRINT INK 2 ' r, Debtrias de es 
coger un rival masdebi l." 

6783 PRINT "Elige «no di estos o 
ponen tes:": RE5T0RE 7500: PRINT 
FOR f«l TO 10: READ a*: IPRINT 
f" AND foiOí;a*: next 

5790 INPUT INK 7; PAPER 0;"Intro 
duce el numero de tu rival (o O 
si ya estas harto). ";x 

6800 IF X»0 TMEN STOP _ , „ 

5810 CLS : RESTORE 7500: FOR f«l 
TO X: READ af: NEXT f: LET b*»4 
«(1 TO 6): PRINT "OK - Lucharas 
con ";b*: PRINT INUERSE 1' INK 3 
"PULÍA CUALQUIER TECLA PARA 
COMENZAR EL COMBATE." 

6820 PAUSE 0: CLS , „ , „ 

6830 LET Sl«0: LET »2*Sl: LET Sfc 
-lll-Xl/12: LET K2*10+X+INT (RND 
#6): LET K1-16-X+INT ÍRNDelO): G 
O TO 15 _ 

7000 RESTORE 7500 


7100 PRINT RT 10,0;"Escribe tu n 
ombre (longitud: 6 letras max.) 
INPUT C*: IF LEN C*>6 THEN GO 
TO 7100 
7200 CLS 

7500 data "Henry Hopa less",”Arno 
Id Awfu l","Nigel No-Good","Phili 
p Fair","Andrew Average","Roger 
Right-MOOK","Brian BricK-Ua l l " , " 
Simón Super" , "Edward Exceitent", 
Fiynn Fantastic" 

7510 PRINT INUERSE lj" C A M 

Ü N A T O DE B 

E Ü INUERSE 

0 PAUL STANLEY" 
PRINT INK 3'"Uerdad que qui 
llegar a ser un campeón 7 P 
este es el Juego que te h 
INK 2'"Con que opon 
enfren-tarte primer 


P E 

O X 
O, " 

7520 
eres 
ues 

ace falta."; 
ente quieres 


TO 


10; READ 

1 ; (" . " AN 


7530 PRINT : FOR f=l 
a*: PRINT INK 1, fJ " 

D J< >10);at: NEXT f 
7540 INPUT x: IF X<1 OR X> 10 THE 
N GO TO 7540 
7545 LET s K *lil-x¡ /12 
-7546 LET K2»10 + x +INT (RND*6): 

T i. 1 = 16 -x +INT (RNDílO) 

7550 RESTORE 7500; FOR fal TO 
READ a*: NEXT f: LET bSaaSd 

6 J 

7560 CLS : PRINT "Muy 
i V a l sera ", a * INK 2' 
ate constara de solo 
Para moverte por el 
5,6,7 y 3 y go Lpea con 
quierda) y P imano 
Ten en cuenta que 
verte y golpear a la 
7570 PRINT ' INK 1, 
ios golpes a la 
en i te 


LE 

X : 

TO 

bien, tu r 
“Cada comb 
3 rondas, 
ring usa 
O imano iz 
dere cha) . 
puedes mo 
vez ." 
■soto puntúan 
cabeza. Pued 


igar 
7560 PRINT 


dejar K,O. 

INUERSE 1;"PULSA CU 
ALÜUIEP TECLA PARA COMENZAR 

EL COMBATE."; PAUSE 0: CLS 
7590 RETURN 























ss=485isais; 

a 

a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 
a 


ñ CPEñR FICHERO 
8 LISTRR FICHERO 
G IMPRIMIR FICHERO (con rs) 
D RNRDIR FICHfiS 


a 

a 

a 

n 

u 

u 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 


1 s a a a « ■ = s 


980 ERASE "M" ;1 ,M J : PRINT "FICH 
ERO ANTIGUO BORRADO": PAUSE 150: 



S500 PRINT AT 17,£7;"0:00" 

3505 BEEP ,25,0. BEEP .25,0 
S510 let round = round + l IF round 
=4 THEN LET round=3: GO Tü 6620 
8520 print at 21,0;"prepárate pa 
ra la ronda ";round;".", Ink 6; 
PAPER 0; AT 2,7; AT 19,24; "[, : 

FOR i*1 TO 20 

3525 LET ysy-íy>2): lET x=x-lx>7 


) 

3530 PRINT ATyl,Xl, , h i yiti 

,xlj" " ¿AT y 1+2, xi; 11 INK 2; a 

t y , x; "ÉF*", PAPER 0; RT y + l,x; .: m 
; PAPER 6; AT y+2,X, f, «*" : LET y la 


y 1, xl 

+2, X 1; 


"JAT y 1 + 1 


y: LET Xl=X 




1000 LET Jf.INKEY*: 
N GO TO 1000 
1010 RETURN 


IF J*« 


THE 



LET 
” t " + 


II? 5 LET LET g*g+(9< 

8 !l?l W fl ? T f íV l i" 1 . f i+i 

'Sii.v • AT F1+2,91; ’ " ; AT F,q 

•¡S i PAPER 7; AT f+1,9 + 1; P 

f+2,9; LET fl = f : 

™ w i 3 1^3 

3542 IF ATTR t£,7)^50 THEN IF OT 
( £8 > 24) = 48 THEN GO SUB 9550 
FOR f*-l TO 2, PRINT AT yl+fTxí' 

: NEXT f: PRINT AT 21,0;’' ' 

TO 62 " : G0 

3545 BEEP .1,-18: NEXT i 
9000 RE5TORE'9010: LET F=0; 

a*USR "a" TO USR 
7: RERD X: PONE y,X; NEXT y 
9010 DATA F,63,127, 9 ,9,252*254,2 
'? ' f * f J f ‘ f ^ 8 ^54,¿54,25 

9020 6aTR 195,129,i,F,F, f,129,19 
S ' a | 4 '854,252,9,9,127,SÓ, f , F , f ,f 

aa « im f { í 4 28 ' 254 ¿ 254 - 854,254 

|«3f ?«¡g í¿|5á¿Í54?|!a®Í^íÍ7,l 

J é ¿i a l¿ ^ I: ill; 9 “I: iSé 

oSÍ®s ?§ Tj ¿5 *15,31,62,126, 

«248,240,¿40,224,224,240,240, 
248 4 282 L i 26 ' 62 ,31,15,1SÍ30,¿6 

9Í!a , R¡TÚRN 8 '*‘ S ' ,Í4 ®’ la0 ’ Sé 

9500 INK 4: FOR F»0 TO 7 STEP 2- 
PLOT 55 — F.15-F: ORAU 0,145+2*í' 

D ODOi| 14, Í + i f *í Je : * DRRU 0 , -2# F -145 
^^ORAU-2*?-145,0: NEXT f 

| 5 ^S.. P S-Í N T $, BRIGHT 1; AT 1, 

¿ 072 ¿?V' ; ■ íflT 40j6J 







































9523 INK 0 

9525 PRINT AT 4,®,C|;AT 4- ,26^1 
9532 PRINT RT 5,0; INK £;"PUNTOS 
INK 0; RT 6,25, “PUNTOS" ; INK 3 
;RT 15,0;"RONDA";RT 15,26;"TIEMP 

D- 

9540 PRINT RT 8,2,H;AT 8,28,S2 
9545 RETURN 

9550 LET u1*16: LET Xl=9: RESTOR 
E 9560; FOR f-1 TO 4: RERD «,X 
9560 DRTA 0,1,-1,0,0,-1,1,0 
9570 FOR «=1 TO 12: PRINT RT yl, 
X l. V; RT yl + l,xl; 'X"; AT yl+fi.xi 
É>APER 2; INK 7;RT «1-1,xl; 

round 

9580 BEEP .06,-45 M M „ 

9585 IF 6*12 THEN FOR 0=25 TO 35 
BEEP .005,0: NEXT O: FOR 0=1 T 
O 20 NEXT O: FOR 0=35 TO 25 STE 
P -1; 8 EEP .005,0; NEXT O 
9590 PRINT hT yl,xl;" ”;AT «1 + 1, 
xU" " ; RT y 1+2 , x 1, " "; flT yl-l,xl 

■ ii i( 

9600 LET yl=yl+y: LET xl=xl+x: N 
EXT é: NEXT f 
9610 RETURN 



IOUANI 

PUNTOS 

0 


RONDA 



Hen r y 
PUNTOS 
0 


TIEMPO 





m m p r n n q 
or f¡ n < E o 


>5 PhUL ST hN L Et 


Verdad que quieres Llegar a ser 
un caria peón ? Pues este es 
juego que le hace ralla* 

Con que oponente quieres éntren¬ 
la ríe primero 7 


1+ * 

2 . . 
3. . 

4 i. . 

5 * * 

6 * . 

7 . . 

S* i 
3. * 
10 . 



,,Henry 
..Hrno id 
. , ní ge i 
..Philip 
,,ñnd rew 
*.Pió9*r 
* i B r i i r< 

..Simón 
.,Edwa rd 
. ,Fignn 


Hope less 
RW ful 


NO-GQOd 

Fa i r 

ñv erige 

Righ t-HOÜ K 

Bfic K-ua 11 
Supe r 
Exce l lent 
Fin tas ti c 



TIEMPO 
0 - 00 


Prepárate para la ronda 2. 




Muy bien, tu rival sera 
Henry Hopeiess 

Cada combate constara de solo 
3 rondas. Para rnovarte po r el 
ring usa 5,6,7 y 8 y golpea con 
Qimano izquierda) y p imano 
derecha). Ten en cuenta que 
puedes move r t«-* y go l p ea r a la 
vez * 

solo puntúan los golpes a la 
cabeza. Pueden llegar a dejar 
K.G. 




RüNDfi 


TIEMPO 
0: 16 
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¿Qué ie parece ir a recoger liuevos de oro? [ise es el 
objetivo de este juego, recoger el máximo posible, 
pero no se lo pondrá nada fácil, pues su camino se 
encuentra plagado de minas e incluso con un pequeño 
enemigo que corre a su encuentro con muy malas 
intenciones. Afortunadamente en su caminó podrá 
recoger hachas con las que destruir al enemigo, 
explosionar una bomba o destruir un muro. 

Aunque parezca sencillo le aseguramos que no es 
fácil hacer una buena colecta de huevos: dispone de 
pocos hachas y un número de vidas limitado. 

Notas gráficas 

ABCDEFGHIJKLMNQPQRSTU 


$**X«*^HIJKLMNOPQRSTU 


Autor: P. Stanley 


I6K 


e ■ l i8S N ?® M ÍíI : B0RDER ® : PflPCR 

S R?N * p - SlínUy <21.3,831 
le to sub 9eee 
15 LET hs-3 
23 SO T0 6333 
53 BEEP .1.-12 
55 LET Li«3 

63 PRINT RT 0,13;"** M*x.Pun 

t i "ihl 

133 PRINT RT yl,xl;" "i INK 6;R 
LET LET xl-x 

113 LET X-X + lIN 57342-254)-tIN 
57342-261): LET y«y + iIN 65276-25 
3)-(IN 64513-284) 

123 LET 4-RTTR íu,x): IF 3CREEN 
THEN «o T0 7«3 

12| IF J-7 THEN IF **-"#■■ THEN 
SO TO 5333 

125 IF »-7 THEN LET y-yi: LET X 

-X 1 

133 IF «-70 THEN BEEP .31.20: L 
ET *c-*c+18: PRINT inK 7;RT 0,6; 

THEN 

PRINT RT 0,12+li; FLRSH 1;*'*": F 
op 'TO 5: BEEP ,2,-30: NÉXT a 

■ PRINT RT 0,12+U ; "i": LET ti-’ 
i +1 

140 IF «-5 THEN SO TO 6303 

T 1 ?i-"í"*“ tt8 ™ CN B=EP LE 

«M > "«H; " IF RNO > 

4H THEN PRINT RT myl.mxli INK 5; 

LET isyl-my: LET mxi-mx 
713 LET l¡»y-fliy + t ,5 AND my<u>-<.5 
PNO tny>u): LET mx-nxtt.5 AND mx 
<x1 -<,6 ftND nx >x) 

715 IF RTTR (my,mx)-6 THEN SO T 
0 6333 

H 723 PgINT RT my.ffix; INK 6; 5RIG 

T (j EN PRINT RT AND 
#18+2,RND#2B+1, INK 6, BRIOHT 1; 
í': ¿£ ? N EU‘S. X HEN p felNT INK 4; 
^BRIOHT 1;RT RND#18+2,RND#2B+1;" 

999 SO Tú 103 

!I 8 tmÍ 5 SóVSMís * 1 or ° R *■ 

s ?8! J f 0B N6xf ia f T0 0 STEP ~ S: BEEP 
5313 J LÉT ai-'-f" 

5333 SO TO 133 

5 §t®u P ?^ T .. RT j S4 Xa + ¿ i ¡ " PRINT- 
RT y,Xi LET y-2; LET X*1 

5633 LEÍ rny-INT <RND#11)+13; LET 


K©OtCUvvOs 


mx-INT i RNO #16) +12: 00 TO 103 
6333 PRINT RT my.rrix;" LET «y. 
INT (RND#11)+13: LEÍ ftX«lRND#16) 
+12: LET myl-fflu: LET IftXl-mX: IF 
•|"J THEN LET *|-”Jr": FOR f -3 
TÓ 48 STEP 5: BEEP ,34,f: NEXT f 
SO TO 733 

6 ?§S RR í3S T ¿51 

7 T SKt’í^nÍxW* ' : BEep 

Í8 a To L Ísei i * u ' l! " uoe THEN 
6313 FOR fl-3 TO 63: NEXT a 

PT ®'®' INUER5E 

11 SE ACABO til 

6025 PRINT RT 8.9; INK 5; BRIOHT 
1;"Punto» . . ., ";*c 
§®*6,IF *<>** THEN LET hft-ftC: PR 

'TsO T0 B 6áS« h,Ch °‘ 0tr ° 

6027 PRINT ' ' " M«xilh« puntU 4 C 
ion ;hi 

re!ití¡rr,w.;;: H cítf> on * 

*l* e TÍ 5 EN 1 Sg e íí < ¿¿¿¿ RND INKEY,< > 

6045 LET »k-í,7 RND INKEY * • " 1“ ) + 
(.85 RND INKEYS-”2"1 
6350 CLS 

7330 FOR f-1 TO SI: PRINT RT f,0 
i"9";gT',33NEXT f 
7313 FOR f-1 TO 29: PRINT RT l,f 
RT 21, í; ■■§*■: NEXT i 
7? 5 L.£ OR . fl “Í T ° C7 RND i k - , 85) + ( 
RN Bv,ís h ?2 7í -t ET * -RND#88 ; LET 
f-S+RND#10: LET X-INT (RND*9)#2 
¿>29 THEN LET f«29 
7038 FOR y-» TO f: PRINT RT x,y; 

7343 NEXT y 

7353 LET S-RND#17 +2: LET í-i+RND 
#10: LET X-INT (RND+14)*2+2: IF 


(P) 




















© 


f>20 THEN LeT 

7060 FOR y*» Tü f: PRINT «T y,x¿ 

: NEXT y : NEXT g 
7390 FOR f«l TO £0 

7400 LET y-RND*18+2: LET X>RND*2 
3 + 1 

7410 IF SCREEN* ly,X}«"" TMEN GÚ 
■TO 7400 

7420 PRINT BRIGHT lj INK 6;RT y, 
NEXT f 

7500 FOR r«l TO 10 

7510 LET y-RND*18+2; LET x«RND#2 

8 + 1 

7520 IF SCREENI ¡y,X)»" M THEN 00 
TO 7510 


NEX 


T f 

7550 FOR f«l TO 5: PRINT RT RND# 
i6+2,rnd*2B+i; ink 4; bright i," 
7": NEXT f 

7800 LET y-2: LET x-1: LET yl-y: 
LET Kl»X ; LET 

7840 LET ffly-INT 7 rND* 1D+10: LET 
mX*INT l RNO * 18 } +12 : LET myl*fliy: 
LET mxlamx 

7850 LET SC«0: PRINT RT 0,0;"Pun 
to» ";»c 


7999 GO TO 50 


0000 FOR f«U5R "a“ TO USR "g"+7: 


RERO 9 POKE f,fl: NEXT t 
9010 DRTR £4,36„e6,153,153 , 86,36 
,24,28,25,73,82,8,26,20,54 
9020 DRTR 220,220,73,126,72,92,2 


0,54,195,36,24,36,126,90,129,0 
9030 DRTR 0,0,0,12,62,126,62,12, 
0,0,8,73.42,28,62,127 
9040 DRTR 4,14,6,12,24,48,96,0 
9500 PRINT INK 0,RT 0,0;" _ 


PRÍNT 
’ : POR 


INK 
9 "1 


5650 F3E^ f.0^0 4~ 

T f,0; BRIGHT 1;"* 

31 

9610 PRINT RT f,g-lj OOER 1; 

0; BRIGHT l;"X"j INK 5; "X" 
9620 IF SCREENI 
PRINT INK 2; PRPER 7;RT 

y630 BEEP 
9640 NEXT 

f 

PLOT 




INK 


_ THEN 

T, g -1; " 


NEXT 
9645 
RU 4 


.04 
9 : PR 


í|+i) /3 


NT RT f,31, 


16,173: DRRU 3,-10: DR 


; X f W . ü / 

10: PLOT 80,173: DRRU 7,-26 
9650 PRINT '"Recorre ti ubtrint 
o recogiendo huevos, evitando la 
s minas y al enemiao . " 

9700 PRINT INK 6'“Si coges un ha 
cha podras des- truir ios muro 
s, minas e inciu- so al enemigo 
q.uc avanza," 

9750 PRINT '"Dispones de 3 Vidas 
, pero se te dara una mas cada 5 


I 


I 


D 


64 Carao^Ures 

Aunque na sea usted un fanático de la lingüistica, 
mas de una ve/ se habrá preguntado cómo pudría 
hacer que su ordenador pusiese^ acentos o tuviese 
caracteres españoles como la Ñ que evitasen el 
embarazoso problema de poner ano en ve/ de año, por 
ejemplo. La cosa es sencilla: ¡sólo ha de crearse su 
propio alfabeto! Y puestos en materia ¿por qué no 
cambiar a un tipo de escritura que permita 64 
caracteres por linea? 

Todo es posible con este programa. Tiene todos los 
caracteres del código ASCII excepto los que se 
acceden en modo extendido: la ñ se obtiene con 
SYMBOL SHlFTy 2 . la Ñ conSYMBOLS7///Ty 6, las 
vocales acentuadas se obtienen pulsando primero 
CAPS SHIFT + SYMBOL SfffFT, y después la vocal 
correspondiente: se puede borrar con DELETE; tiene 
un BEEP de aviso de fin de línea, otro de última línea > 
un tercero de pantalla llena. 

El texto escrito en la pantalla se podrá pasar a 
impresora o almacenar en cinta de cassette, sí se dije 
esta segunda opción se puede guardar en una cinta de 
sesenta minutos aproximadamente 90 pantallas por 
cada cara, lo que equivale a un total de 1.932 líneas de 
64 caracteres, es decir, el contenido de un libro de 
bolsillo. El programa permite también leer estas cintas 
para lo cual pregunta al principio si se desea leer o 
escribir; 

Este pequeño editor utiliza por tanto un juego de 
caracteres propio que se almacena por duplicado y que 


habrá de ser introducido manualmente con ayuda dd 
programa "‘cargador de caracteres” que se adjunta, de 
acuerdo con la tabla que se incluye a continuación. 

Una vez más queda demostrado que los límites en 
materia informática sólo están en su imaginación. 


l© REM carai Caracteres 
20 CLEhR 25663 

30 FOR f=31832 TO 32592 5TEP Q 
40 CLS ; PRINT "DIRECCION: ";f 

50 FOR 0=0 TÜ 7 
60 INPUT i 

70 POKE í +n,a; POKE f+0-768,a* 
16: PRINT a;" "j 

80 NEXT n: SEEP .01,0 
90 NEXT f 

10© CLS : PRINT "Q.K. Caractare 
s cargados": STOP 


Autor: Jesús Alonso Rodríguez 


16K 



Caracteres por Línea 
Jesús Alonso 1.984 
Carga Caracteres Cinta 
R 0: BORDER 1: INK 7: C 


CLEhR 29663 
PRINT RT 10,6; 


XRRGRNDÜ CAR 


4| 

Si 

s| 

10 
LS 

20 
30 

ACTERES" 

35 INK 0 
4© LORD 1 
, 1536 

45 INK 7 

50 PRINT RT 10,6.; "PARE Lh CINT 
h "¡RT 12,0," PULSE CUR 

LQUIER TECLA" : PAUSE 0 

iniciatizacion 

110 INPUT 11 LEER 0 ESCRIb^ r , 

b$ 

120 IF 


caracteres"CQOE 31064 


LEER 0 ESCRIBIR 7 
b*ílJ» M t M THEN Gü TO 400 















S® puntos," 

9900 PRINT INK 6'" O.Arriba 

„ 2 .Abijo”' INK 5'" I,,., 

.Izquierda P..,.Dlf|Chi" 

INPUT "Prisión* ENTER pin 


0 


THEN (30 TO 150 
RT 0,0;"|CHR* 


130 IF b* il)a"€ 

14.0 GO TO 110 
150 CLS : PRINT 
8; : BEEP .01,0 
160 L ET Ki =29664: LET C=0 

ill§^ 9 ! E Byc '‘- ÍS£rib¡r 

BEEP .OI,,, 

1005 IF i i12 THEN GO TO 1000 

IF a=13 THEN PRINT " "'"I 
?ÍÁ P° KE ra <13: LET m=m+l; 
1190 

IF a=l£ THEN 
IF a=14 THEN 


0: LET a*CODE INKEV$ 


GO TO 2500 
LET cal: GO 


TO 

QR 


■87 OR a=109 
2300 

ET a=123*ía=97 


1010 
CHR* 

O TO 
1020 
1030 
1O00 

1040 IF a =77 OR i¡ 
a=119 THEN GO TO 
104S IF c=l THEN 1»^,, =3 , 

í 1?** (a = 101 j +12S* (a = 1051 +126*- (a 
= 1111 +127* U-117) ; LET Csi3 IF a 
=0 THEN GO TO 1000 
1?50 PüKE m , a : LET ni =m + 1 : GO SU6 

1 6==r Pl=l y SE 0: LET 3=C0DE INKEY $ 
BEEP ,01,0 

1105 IF a<12 THEN GO TO 1100 

a=13 THEN PRINT CHR* b'" 
8,: POKE 1(1,13: LET m=ffl+l 
1190 

a=12 THEN GO TO 2600 
a =14 THEN LET C*l: GO TO 


1110 IF 
I CHR$ 
: GO TO 
1120 IF 
1130 IF 
1100 
1140 IF 


, r - * = 7 ? GR a=87 OR a=109 OR 

a=119 THEN GO TO 2400 
1145 IF Cal THEN LET a=123+ la*97 
í}?f + 125# i* =105) +126* ia 

= 111) +127* la=117) : LET C=0 IF a 
=0 THEN GO TO 1100 
1150 POKE m,a: LET »=m+l: GO SU6 
2 100 

1160 IF PEEK 23688=7 THEN BEEP , 
1 i 40 

Ü90 IF P£EK 23689=4 RND PEEK 23 


Vr<so¡(OMas 




a 

)k 

dide* 

X 

3*3*1* 

3* 1* 

X 

* 

i * 

* 

* 

3* 3k 

dt i* 

* 

ik 

\* 

*** 

* 

3*1*3* 

di * 

* 

* 


* 

m 

* di 

* 

XXX 

* 

x 

dokik 

** 

dí 3* 

3* 


Rtcorre ti laberinto rtcogitndo 
hutvos, evitando las minas y ai 
«ntiflüo- ■ 


Si coyts un hacha podras des* 
truir ios mu ros j minas t incLu- 
so al enemigo que avanza, 


Dispones 
dara una 


di 3 vidas, pero s« 
mas cada 500 puntos. 

2 .Aba jo 


ti 


.Arriba 



coiinzar as 
9910 IF INKEY** 1 " 
0 

9920 CLS 
9999 RETURN 


THEN GO TO 991 


PRINT ÓUER 1;CHR* a;”| 


CHR 


RETU RN 

__SU b 

DKE Ni , a 


ffl , M 
LET 


,U - R 

=tn+l: GO 


SUB 


© 


688=33 THEN BEEP .3,20 
12®® IF PEEK 23689=3 THEN POKE m 
í 255: BEEP *b ¿ 20: GO Tü 3000 
1210 GOTO 1*Ó0 

2000ñ|DB Su b Print - A 
2010 POKE 23606,88: POKE 23607,1 
*0 LET b = a 

PRINT CHR* a;CHR* 8; OUER 1 
CHR* 8; 

_ RETU RN 

gioaagOM sub. Print - b 
2110 PRINT CHR* 6;CHR* 8; 

2120 POKE 23606,88: POKE 23607,1 

2140 
23001 
2310 . 

2000 

a=49*ia=77) + 91*ia=S7) +9 
+93 * 15 =H9) 

"ÍÍ00 POKE LET «=“>+1: GO SUB 

2340 GOTO 1160 

¿4-00Mp2> Su b . fu , M , U , U - 6 
2 ai00 ™ ,a LET rt=n ' + l : GO SUB 

Itía VrtS, é Í3=77) +91*(a=S?i+9 
2* ia = 109) +93* ia=119) 

2000 E " J * : LET 
2440 GO TO 1100 
glggM Ja ifl Sub. CELETE - A 

||?g 52 KE 2' 12; LET "1=11+1 

¿610 IF PEEK 23689=24 AND 
■ ^033=33 THEN GÜ TO 1000 
2520 PRINT CHR* 8, "| ".;CHR* 

2530 GO Tü 1000 
|60&H3pB Sub, DELETE - B 
2005 POKE m,Ig: LET m=ra+l 
2610 PRINT "I", CHR* 8; 


GO SUB 


PEEK 2 
3, CH 


& 


I II 










































d b d 0 

30001 

300S 

3010 

3020 

30I0 

3040 

INTñ 

3050 

00 

3060 

í 

3070 

3080 

31001 

3110 

3120 

00 

3130 

4000 


GOTO 1000 

Su b * Pantalla llena 
PÜKE 23606,0 PÜKE 23607,60 
PRINT " 11 

INPUT "DESER IMPRIMIRLO ? 11 


© 


IF bilí)="£" THEN COPY 
INPUT "DESEA GUARDARLO EN C 

? "; b% 

IF b$(lJ="S" THEN GÜ SUB 31 


4010 INPUT "PREPARE LA CINTA Y P 
ULSE ENTER",b* 

4020 LOAD "t£XtQ"CÜDE 29664,1400 
4030 INPUT "PARE LA CINTA Y PULS 
E ENTER'"j b? 

4040 CLS : PRINT AT 0,0¡“|" jCHR( 


3, 
4050 
4100 
4105 


INPUT 

IF 


DESEA BORRARLO ? "jb 
S" THEN GO TO 100 


F bídS 
GOTO 3020 
■aaa Sub. Texto a cinta 
5 RUE "texto"CODE 29664,1400 
UERIFY "texto"CODE 29664,14 


RETU RN 
iaaa bu c te 


lectura 


LET Id =29664 

LET a =PEEK IV. : LET I* =ii, +1 
IF a<12 THEN GO TO 4100 
4110 IF 3=255 THEN GÜ TO 4S00 

4120 IF a=13 THEN PRINT .|"; 

CHR$ Sj_: GO TO 4100 

4130 IF a = 12 THEN PRINT CHR$ S," 

I ",CHR$ SJCHR* S;: GO TO 4100 

4140 GO SUB 2000 

4200 LET a =PEEK. N: LET ríi =m +1 

4205 IF a<12 THEN GO TO 4200 

4210 IF a=255 THEN GO TO 4500 

4220 IF a =13 THEN PRINT CHR$ b " 

I";CHRt S;: GO TO 4100 


r 


I JUEGO DE CARACTERES 


D1RECC. 

31832 — 

0 

DATOS 

0 0 

0 

0 

0 ‘ 

* 0 

0 

32216 — 

0 

14 

10 

14 

8 

8 

8 

0 

31840 

— 

0 

4 

4 

4 

4 

0 

4 

0 

32224 — 

0 

4 , 

10 

10 

10 

14 

6 

1 

31848 

— 

0 

10 

10 

0 

0 

0 

0 

0 

32232 — 

ti 

12 

10 

10 

12 

10 

9 

0 

31856 

—* 

0 

0 

4 

14 

4 

14 

4 

0 

32240 — 

ti 

14 

10 

8 

4 

2 

14 

o. 

31864 

— 

4 

14 

8 

12 

6 

2 

14 

4 

32248 — 

ti 

14 

4 

4 

4 

4 

4 

0 

31872 

— 

0 

0 

9 

2 

4 

9 

0 

0 

32256 — 

0 

10 

10 

10 

10 

10 

14 

0 

31880 

— 

6 

0 

9 

13 

11 

9 

9 

0 

32264 — 

0 

10 

10 

10 

10 

10 

4 

0 

31888 

— 

2 

4 

0 

0 

0 

0 

0 

0 

32272 — 

0 

4 

4 

4 

4 

5 

2 

0 

31806 

— 

2 

4 

8 

8 

8 

8 

4 

2 

32280 — 

0 

10 

10 

4 

4 

10 

10 

0 

31904 

— 

8 

4 

2 

2 

2 

2 

4 

8 

32288 — . 

0 

1Ü 

10 

10 

4 

4 

4 

0 

31912 

— 

0 

0 

0 

10 

4 

10 

0 

0 

32296 — 

0 

14 

2 

4 

4 

8 

14 

0 

31920 

— 

0 

0 

0 

4 

14 

4 

0 

0 

32304 — 

0 

2 

2 

2 

2 

10 

4 

0 

31928 

— 

0 

0 

0 

0 

2 

2 

4 

ti 

32312 — 

0 

0 

8 

4 

4 

4 

4 

0 

31936 

— 

0 

0 

0 

0 

14 

0 

0 

ti 

32320 — 

0 

0 

4 

4 

4 

4 

8 

0 

31944 

—- 

0 

0 

0 

0 

0 

0 

2 

0 

32328 — 

0 

4 

10 

0 

4 

4 

4 

0 

31952 

—- 

0 

0 

1 

2 

4 

8 

0 

0 

32336 — 

0 

0 

0 

0 

ti 

0 

15 

0 

31960 

—. 

0 

14 

10 

10 

10 

10 

14 

0 

32344 — 

0 

4 

10 

8 

12 

8 

14 

0 

31968 

— 

0 

2 

6 

10 

2 

2 

2 

0 

32352 — 

0 

0 

14 

2 

14 

(0 

15 

0 

31976 

— 

0 

14 

2 

2 

14 

8 

14 

0 

32360 — 

8 

8 

14 

10 

H) 

10 

14 

0 

31984 

—- 

0 

14 

2 

2 

14 

8 

14 

0 

32368 — 

0 

0 

14 

8 

8 

8 

14 

0 

31992 

* 

0 

!0 

10 

14 

2 

2 

2 

0 

32376 — 

2 

2 

14 

10 

10 

10 

14 

0 

32000 

— 

0 

14 

8 

14 

2 

2 

14 

Ó 

32384 — 

0 

0 

14 

10 

14 

8 

14 

0 

32008 

— 

0 

12 

8 

8 

14 

10 

14 

0 

32392 - 

0 

0 

6 

4 

14 

4 

4 

4 

32016 

— 

0 

14 

2 

2 

2 

2 

2 

0 

32400 — 

0 

0 

14 

10 

10 

14 

2 

14 

32024 

,— 

0 

14 

10 

10 

14 

10 

14 

0 

32408 — 

8 

8 

14 

10 

10 

10 

10 

0 

32032 

— 

0 

14 

10 

10 

14 

2 

2 

0 

32416 — 

0 

4 

0 

4 

4 

4 

6 

0 

32040 

— 

0 

0 

4 

0 

0 

4 

0 

0 

32424 — 

0 

2 

0 

2 

2 

2 

2 

14 

32048 

— 

0 

2 

0 

0 

2 

2 

4 

0 

32432 — 

8 

8 

10 

12 

12 

10 

10 

0 

32056 

— 

0 

I 

2 

4 

8 

4 

2 

1 

32440 — 

12 

4 

4 

4 

4 

4 

14 

0 

32064 

— 

0 

0 

0 

14 

0 

14 

0 

0 

32448 — 

0 

0 

6 

5 

5 

5 

5 

0 

32072 

— 

0 

8 

4 

2 

1 

2 

4 

8 

32456 — 

0 

0 

12 

10 

10 

10 

10 

0 

32080 

— 

0 

14 

10 

2 

4 

0 

4 

0 

32464 — 

0 

0 

14 

10 

10 

10 

14 

0 

32088 

— 

0 

6 

0 

12 

10 

10 

10 

0 

32472 — 

0 

0 

14 

10 

10 

14 

8 

8 

32096 

■— 

0 

14 

10 

10 

14 

10 

10 

0 

32480 — 

0 

2 

14 

10 

10 

14 

2 

2 

32104 

— 

0 

12 

10 

12 

10 

10 

12 

0 

32488 — 

0 

0 

6 

8 

8 

8 

8 

0 

32112 

— 

0 

14 

10 

8 

8 

10 

U 

0 

32496 — 

0 

0 

14 

8 

4 

2 

14 

0 

32120 

— 

0 

12 

10 

10 

10 

10 

12 

0 

32504 — 

4 

4 

14 

4 

4 

4 

6 

0 

32128 

— 

0 

14 

8 

12 

8 

8 

14 

0 

32512 — 

0 

0 

10 

10 

10 

10 

15 

0 

32136 

— 

0 

14 

8 

12 

8 

8 

8 

0 

32520 — 

ti 

0 

10 

10 

10 

10 

4 

0 

32144 

— 

0 

14 

8 

8 

10 

10 

14 

0 

32528 — 

ti 

0 

4 

5 

5 

5 

2 

0 

32152 

— 

0 

10 

10 

14 

14 

10 

10 

0 

32536 — 

ti 

0 

10 

10 

4 

4 

10 

0 

32160 

— 

0 

4 

4 

4 

4 

4 

4 

0 

32544 — 

ti 

0 

10 

10 

10 

14 

2 

14 

32168 

— 

0 

2 

2 

2 

2 

10 

14 

0 

32552 — 

0 

0 

14 

2 

4 

8 

14 

0 

32176 

— 

0 

10 

12 

12 

10 

Í0 

10 

0 

32560 — 

2 

4 

14 

2 

14 

10 

15 

0 

32184 

— 

0 

8 

8 

8 

8 

8 

14 

0 

32568 — 

2 

4 

14 

10 

14 

K 

14 

0 

32192 

:— 

0 

4 

6 

5 

4 

4 

4 

0 

32576 — 

2 

4 

0 

4 

4 

4 

6 

0 

32200 

■— 

0 

9 

13 

11 

9 

9 

9 

0 

32584 — 

2 

4 

14 

10 

10 

10 

14 

0 

32208 

—. 

0 

4 

10 

10 

10 

10 

4 

ti 

32592 — 

2 

4 

10 

10 

10 

10 

15 

0 













4.230 IF a =12 THEN PRINT "|";ChR* 

Sj : 30 TÜ 4100 
4240 GÜ SUB 2100 

4250 IF H 1 >=31063 TMEN 00 TO 4500 
4260 00 TO 4100 

4500 PQKE 23606 , 0 : POKE 23607,60 
4510 INPUT "DE 5 Eñ LEER OTRO TEXT 
O ? b$ 

4520 IF bS ti) = "s" TMEN 00 TO 400 

r- 1 


Estada sentado en U puerta di su casa, cuando varec nrún 
bullios itftratirnstris MStranda» agresmiy cqu ir di-fin inte. 


Gintis del lugar aseguran Igual tointi haber sido testigos de 
Lfi»portaMis auLstiht Untes. 


Cttens* & di Migo di iHfll 


L J 




reúnas 


0 

4530 GOTO 100 
2000Bp|QB 6a iva en cinta 
9010 SRUE "escribir" LINE 0 
Swil^SRUE "caracteres"CODE 31064 

9030 OERIFY "escribir" 

-?*?=!¿- RIFY "caracteres'XODE 310 

f 1536 



SUSCRIBASE 
POR TELEFONO 

* más fácil, 

* más cómodo, 

* más rápido 


(91) 4572617 

Servicio permanente durante las 24 horas del día 
"CONTESTADOR AUTOMATICO” 









































Tut de, XfaQfkéj 

Aprender inglés ha dejada de ser una cuestión de 
moda para convertirse en una auténtica necesidad. 
Para aprenderlo puede optar por muchos diferentes 
caminos, pero el que le ofrecemos con este programa 
es más divertido. Como no se lo vamos a vender, le 
podemos decir que con él no aprenderá gran cosa, 
pero seguro que pasa un rato agradable e instructiva 
El programa le formulará preguntas sobre los 
verbos irregulares que previamente habrá de introdu¬ 
cir (se almacenan en una variable alfana mélica de tres 
dimensiones a fin de guardar los tres tiempos de este 
tipo de verbos: infinitivo, pasado y participio). Se 
puede seleccionar el tipo de pregunta {siempre el 
mismo tiempo, generalmente el infinitivo, o al a/ar). 

Autor: Alfonso Martín I6K 


i REP1 


n t rod 

6 

10 
ios % 

P r i m 

15 

30 

30 

35 

40 


¿dO 
L »3 j 

50 
55 
60 

51 
t r ro 

52 

53 

00 


QRDER 
INPUT 
U ci dos 
IF lft> 

PRINT 
tgun t 
«ro di 
INPUT 
DXM ai 
FOR K ■ 
FQR ím 
PRINT 
•' i n f i n 
AND Ls 


?: PAPER 6; INK 0 
titnt* Los vtrbos i 
INK 2;s $ 

% ' THEN GO TO 300 
t "vamos a introducir 
los v*y« p i d i«ndo « 
cuantos h«y M 


« 

me 
n 
(n 
1 

1 TO 3 
, /'in t rodil c* 4 L 
i t i v o " AND i ■ 1) ; 
S) , i" par ti c ípío' 1 


,j_3,10) 

to n 


t i «in p 

t'pas 

AND 


INPUT «|UiL) 

PRINT , «tu, o 
NEXT L 

PRINT AT 19,0, ,É Si hay 
r pulsa "i INK 1; M E”, 

FOR j■1 TO 400 
IF INKEY«s4 “ THEN GQ SUB 


a L9un 
INK 2 


64 NEXT i 
ÓS CLS 

87 PRINT ^"ihora otro" 

70 NEXT < 

30 £0 Tü ¿00 
100 CLS 

110 INPUT "donde esta el error: 
infili, pa-iado (2i , p*rt.i3)";h 
130 PRINT , , "in troduce el. tiemp 
o verdadero'* 

140 INPUT llit.hl 
14-3 PRINT 4|U,hl 
14-5 PRINT ,,"hau aiflun otro err 
or en este verbe*IS/N)”¿ INK 2 
150 IF INKEYi■"" THEN GO TO 150 
160 IF INKEYÍ»"*" THEN GO TO 10 



algún* ror-me en especial ai pr 
ograma? is/n) ", s* 

1020 IF s*="n" THEN GO TO 1100 
1030 PRINT ,,"Como le Hamo " 
1035 INPUT u* 

1040 GO TO 1110 
1100 LET u*«"verbos" 

1110 PRINT , ,"l« voy a llamar **; 
u* 

1115 SAUE u» 

1120 CLS 

1130 print "Atención, nunca usar 
RUN"; INK 5 
1132 50 TO 0 
2000 CLS 

2010 print "Te loa voy a ir preg 
untando sai-teados. hay varía* p 
os i bi i idades" ,, "D Te pregunto t 
i infinitivo y tu dice* el r 

esto.‘';TAB 0,,;"2i Te pregunto c 
ualRuier tiempo y tu dices el 
resto,"¿AT 10 ,5 i "Elige si te at 
reves"; INK 3 

2017 INPUT ,,"Si te cansas pulsa 
3 , i 

2021 PRINT ,,"Quieres que te tos 
pregunte to- dos o solo unos cu 

antos i 1/2)" 

2022 INPUT t 

2024 GO SUB 4400 

2025 GO TO 2000+1*100 
2100 LET d = INT (RN0*a)+i 
£105 CLS 

£110 print ,,"Cuates son los tie 
(«pos del verbo a* id , 1> ; INK 3 
2115 INPUT "pas adO"J p *; PRINT p| 
GO SUB 5000 

2120 INPUT "participio";O*; PRIN 
T O»; GO SUB 5050 

2130 IF PS=aSid,2) ANO 0$=a*id,3 
i THEN GO TO 2170 

2140 LET q$=”Hay un error, vueiv 
e a pensarte-io y me lo cuentas" 
PRINT q$; INK 0: FOR b»l TO 30 
0: NEXT b: GO TO 2110 
2170 print ,,"o, k,, como dominas 
, si no cam- bias de Opinión te 
voy a seguir preguntando" - GO 
SUB 2500 


0 

170 RETURN 

200 CLS 

205 PRINT , , "ahora ya tienes lú 

s verbos introducidos, tienes va 
rías posibi i i-dades: 1) Almacena 
ríos en cinta 2) Que te l 

os pregunte. 3) Que te i 

os muestre.";AT 10,10;"ELIGE"; I 
NK 4 

206 INPUT h 

207 50 TO 1000*h 
1000 CLS 

1010 INPUT "Quieres que neme de 



2180 GO TO 2100 

2200 LET d-INT <RND*a)+3: LET g> 
INT IRND*3)+1: CLS 
2210 print "Cuates son los resta 
ntes tiemposdel verbo cuyo "¡("i 
nfinitivo" AND g»1); C"pasado" AN 
D g=2) ; ¿"par ti cipio r ' AND g«3);“ 
es ”; TRB 0;ai(d,g) 

2220 IF g-1 THEN GO TO 2250; IF 
■3=2 THEN GO TO 2200 
2230 PRINT "Introduce el infinit 
IVÚ" : INPUT H|: GO SUB 5100: PRI 
NT m 

2240 PRINT "introduce el pasado" 




















TQMÚS 


INPUT p»; 00 SUB 5000: PRINT p 

ls4.2 IF K$-a*íd,l) AND P$ «a t ( d , 2 
) THEN SO TO 2350: PRINT q$: 00 
SUB 4-500 

2245 PRINT q$: 00 TO 2230 

2250 PRINT ,r introdUC« el pasado" 

: INPUT p$: 00 SUB 5000: PRINT p 




partici 
5050: PRI 


00 


i n f i n i t 
00 SUB 


2255 PRINT "Introduce ti 
PiO": INPUT 0$: 00 SUB 
NT O* 

£260 IF P$aa| (d>2) AND 01*11(4,3 
) THEN SO SUB 2350 
£265 PRINT ,,qt: 00 SUB 4500 
TO 2250 

2290 PRINT "Introduce ti 
iVO" : INPUT Kft PRINT k * 

5100 

2295 PRINT "Introduce el partid 
PiO": INPUT O $: GO SUB 5050: PRI 
NT O* 

£29? IF k $aa s id , 1) AND o $*a• (d , 3 
) THEN GO SUB 2350 
3300 PRINT , , q$ : GO SUB 4500: GO 
TO 2290 

2350 PRINT " O■K•, ha» sabido COO 
testarme, sino cambia» de opinio 
n te voy a seguir preguntando": 

00 SUB 2500: GO TO 2200 
2500 FOR 1=1 TO 200 
£515 IF INKEY$ - " 3" THEN GO TO 20 

2520 NEXT l: CLS 
3000 CL5 : LET 0-0 
3010 PRINT "Te 10» 
rando por paginas- 
dispue»to pulsa 
3020 IF INKEYS-"" 


RETURN 


voy a ir most 
. Cuando estes 
una tecla" 

THEN GO TO 302 



3060 

3070 


FOR d»l TO 3 

_PRINT RT i f-O#18 + 1» , ( íd-lí « 

10» ¿a|(f,d): NEXT d 

3060 IF Í/1B-INT ( r/lS» THEN 00 

SUB 3600 

3090 NEXT r 

3095 00 SUB 3500 

3100 PRINT "ya he terminado"; IN 
K 6: 00 TO 2k 
3500 PRINT 



0-0+1; CLS 


PRINT y $: 


MMh TFCLr 


3510 IF INKEY$ = " " THEN 00 TO 351 
0 

3515 LET 
RETURN 

4400 IF tul THEN 00 TO 4450 
4410 LET a-n: LET fil: RETURN 
4450 PRINT , ."Introduce el num. 
de l verbo im-ciai y el final, » 
i quieres que te pregunte una pa 
gina di me que num. de pagina seg 
uida de un punto decimal y un un 
o: ej»: 2.1 (pag 2»";TA6 0;"si 
no quieres paginas pulsa cuaiqu 
ier numero" 


4455 INPUT qu: IF qu-INT qu<>0 T 
HEN 00 TO 4430 

4465 CLS ; INPUT "U«r bO inicial? 
';a; INPUT "uerbo final?"; f; RET 
URN 

4430 LET f-1 +18 *INT (qu-1): LET 
a-18: RETURN 

4500 FOR b-1 TÚ 400: NEXT b: CLS 
RETURN 

5000 LET q-LEN p« 

5010 0£H Z $ (10-q) : LET p$>p$ + Z$: 
RETURN 

5050 LET q =LEN 0 1 : DIN Z*(10-q): 

LET 0$-0$+Z$: RETURN 
5100 LET q-LEN k«: DIM Z$(10-q): 
uET k* = k$+Z$: RETURN 



bfc 

uas 

be en 

CU t 

cu t 

cu t 

h*V€ 

had 

had 

do 

d i d 

done 

duft L 

d u e 11 

dwt Lt 

911 

go t 

go t ten 

% i t 

sa t 

sa t 

r un 

ran 

run 

* ing 

sang 

sung 

roa* 

r ise 

riten 

f 0 r 9 * t 

f 0 r g 0 t 

forgo tten 

PU t 

PU t 

PUt 

w r 11 * 

orott 

wri tten 

d r i n K 

drank 

drunk 

hit 

hit 

hi t 

undt ri 

tandundt rs 

toodund* rs too 

su im 

tutu 

swum 
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Ambientado en la célebre película de la que toma el 
nombre, este programa hará renacer en usted sus 
sentimientos más nobles para salvar a sus congéneres 
de una muerte tan segura como brutal. 

Un enorme fuego se ha declarado en uno de los 
rascacielos más importantes de la ciudad, avanzando 
rápidamente hasta alcanzar los últimos pisos. Ante la 
impenetrable muraba de luego, sus inquilinos no ven 
otra solución que lanzarse al vacío. Y es aquí donde 
entra usted. 

Su misión consiste en recogerlos antes de que ocurra 
el desenlace Fatal y llevarles a un peculiar hospital en el 
que siempre deberá entrar despacio (nunca corriendo). 


Apresúrese a llevar todos los que pueda al hospital, 
pero no se descuide... ¡se le pueden caer encima! 

Notas gráficas 

RBCDEFGHIJKLMNÜPQRSTU 
*Sí GH-i J KÜ&IliAtf + 

Autor: Mz l Belén Cor tazar. I6K 


1 REM ■mímm =mM 

10 FOR n*0 TO 7 : RERD X : 
USR " + 11 +n , x : NEXT n 

la FOR nit0 TO 7: RERD X: 
USR -r'+n ,X: NEXT n 

14 FOR n-0 TO 7; RERD X: 


POKE 

POKE 

POKE 


Este programa utiliza la regla de Simpson pura 
hacer integrales definidas. Si lo ejecuta directamente 
sólo hará representaciones gráficas. Para obtener la 
integral teclee RUN 1000, introduciendo posterior¬ 
mente la función a integrar (el argumento es la 
variable X). A continuación se pregunta el intervalo de 
integración que quedará después resaltada en el 
gráfico. Una ve/ realizada la gráfica se pide el número 
de iteraciones para resolver la integral (diez es un 
número normal de iteraciones). 

Pruebe con los siguientes ejemplos: 

Función: SIN X 
intervalo: Xo=0 Xl=Pi 


Xo=2 * PI Yo=I 

Xo—0 X1 = I 

Xo=2 Yo^c 1 (EXP 2) 

Autor: Julio Gómez Herrero. 



1ÓK 




I I IW — SJ I 1 = 

E30: LET xl=lE30 
5 XNK i0 

- í® HT 10,4 J "TELCEE MAXIM 

U EN EsuhLA X": INF'UT "XO=" J N 

- ¿5 AT 10,4,"TELCEE MAXIM 

u en Escala y m : input "yo=";m 

20 PRINT AT 10,1;"LA FUNCION S 
E REPRESENTA EN LOS INTERNALOS: 

C-XO,XO í/í-Y0 ,YO 7 " : PAUSE 100: C 
LS 

¿S PLüT 127,0: DRAW 0,175: PLO 
I' 0,37: DRhU 255,0 

27 IF Rol THEN INPUT "FUNCION 
A REPRESENTAR" . h* 

■íO FOR IsIE-15 TO N STEP N/2S5 

































USR 

16 

USR 

13 

USR 

20 

USR 
22 
USR 
24 
USR 
26 
USR 
23 
USR 
30 
USR 1 
32 
USR " 
34 
USR 1 
36 
USR 1 


"IT' tn.X: 

For n n 0 

M JI M +n , X ; 

FOR n.0 

For n>0 

Ut^+n,x: 
FOR n*0 

t'+n >*■ 

FOR n 30 
'rT+n ,x : 
FOR n =0 
*T+n , x : 
FOR n*0 
i '+ n ,X : 
FOR ñ=0 
■A M 4n, X: 
FQR niC 
l * ,b +n , X ; 
FOR n*0 

? •'+n,X : 

OR n>0 

,x i 


NEXT 
TO 7: 
NEXT 
TO 7: 
NEXT 
TO 7: 
NEXT 
TO 7: 
NEXT 
TO 7: 
NEXT 
TO 7: 
NEXT 
TO 7: 
NEXT 
TO 7: 
NEXT 
TO 7: 
NEXT 
TO 7 i 
NEXT 
TO 7: 
NEXT 


RERD x 
RERD X 

) 

RERD X 

\ 

RERD X 
n 

RERD X 

i 

RERD X 
RERD X 
RERD X 

> 

RERD X 

WrD x 

\ 

RERD X 


n 


n 


PÜKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 


© 



TOMOS 


33 FOR n«0 TO 7: RERD X: POKE 
USR “f" +rv,X; NEXT n 

40 FOR n«0 TO 7: RERD X: POKE 
USR "Sü" +n , x ; NEXT n 
^ 50 DflTR 0,24.24,126,126,84,24, 

52 DRTR 0,43,42,56,48,43,0,63 
_ 0,167,1¿2,Í8?,13¿,Í66, 

0 i 2§D 

56 DRTR 0,174,164,164,36,36,0, 
255 

58 DflTR 0,232,168,238,168,174, 
0,264 

60 ORTfl 24,24,46,60,51,40,196, 

134 

_62 OftTfl 24,24,46,60,51,48,72,1 
08 

64 DRTR 0,0,0,0,256,36,196,195 

5 19S Dfl », «a,842,80,268,36,1* 

ORTfi 24,24,12,60,204,12,18, 

70 DRTR 24,24,12,60,204,20,35, 


35 LET X = I 

40 IF RBS i URL H % ) . M THEN PRI 
NT RT 0,0,URL HJ. GO TO 60 

S 0 PLOT i1*127/N) +127, tURL ñ*> 
*87 /M +87 

55 IF Ril AND I>=áü RNÜ I<=X1 
FUEN DRRU 0 .-í(URL h*'*87/M) 

60 NEXT I 

70 FOR I = 1E -1S TO -N 3TEP -N/2 
55 

75 LET X = X 

80 IF R 6 S (URL «$) >M THEN PRIN 
T RT 0,0.URL R| GO TO 100 

90 PLOT (I*127/Ní +127, iURL RSi 

* o 7 / ti 4- 6 7 

95 IF R = 1 RND I<=X1 RND I > =X0 
THEN DRflU 0 ,-CíUhL R$ü *37/M) 

100 NEXT I 

105 IF MU = 1 THEN RETUPN 
i 10 input “sobreimpresión si=i 

.no= 0 //";res 

120 IF resal THEN GO TO 27 
130 IF RES = 0 THEN STOP 
1000 DIM XÍ 20 ); INPUT “FUNCION: 

;H $ LET R = 1 

1002 INPUT "INTERURLO ",”X0=“;X 0 


i " X X — ' ' ] XI 

¿004 INPUT ''DE5ER REPRESENTACION 
'sRRF ICh? . 81 = 1, NO=0 " , MU 
1006 IF MU=1 THEN GO SU6 10 
1010 6EEP 1,7 INPUT " ITERRC IC'NE 
=>: P=” ;F 

1015 LET T=F 
1020 LET B=(X1-X0)/2/F 
1030 LET h = 0: LET < =X0: LET Y=Uh 

L H % 

1040 LET R=V+R: LET X=X+6: LET Y 
*URL R( 

1050 LET R=Y*4+fl; LET X=X+6: LET 
Y=UhL h$ 

1060 LET ñsY+fl: LET F=F-1 
1070 IF F O0 THEN GO TO 1040 
1030 LET C=R*B/3 

109O PRINT "INTE."jR;"* M ;C¿" I 
TE.=",T: BEEP 2,7 
1100 LET X iR + 1) =C 

1115 IF RB5 ÍX(R+lí-X<R>) >=lE-7 
THEN LET ft=R+l LET T=T*2: LET F 
=T. GO TO 1020 

1120 FOR 1=1 TO 5: BEEP ,5,49 P 
RU5E 5: NEXT I 


r ^ 1 

74.499023 | 
INTE.1=066 * 66667 
INT E.2=066*66667 


I 


1 

i 

1 

1 

I 

\ 



ITE* =5 
ITE,=10 


b 



INTE.1=1.7182842 
INTE.2=1.718282 
INTE,3=1.7182813 
INTE.4=1.7182813 


ITE,=4 
ITE.=8 
ITE. =16 
ITE. =32 


/ 


/ 



































97 

7a data 6 , 36 , 28 ,78, 125 , 4 , 24,16 

74- DflTfl 8,104,113,63,86,136,14 

,8 

78 DATA 198,34,80,24,840,84,52 
,50 

78 OATA 16,149,84,89,114,118,6 

8,60 

80 DATA 32,164,148,197,109,111 
,255,255 

100 BORDER 1: PAPER 1: INK 7: C 

1*5 ... 

108 print at 0, il; "■■■mBB" 

104 PRINT '" Un Cdi fi cío proxiM 
o «L hospitaisc incendia ,Sa len 8 

ctniutrot aintentar aaivar a L 
os que at ti-ran por las ventana 
% . M 

136 print Ei juego acaba cua 
ndo el fuego alcanza el ultimo 
Pito,o cuando nutren ios cuatro 
camilleros de que dispones." 

108 PRINT Con la camilla car 
gada,o con urvsoio camillero no P 
uedcs recogerá ios que cacn.Tieri 
es que ir ai hospital para entre 
gar los salvados,o para recoger 
otro cemiiic -ro. " 

109 PRINT FLASH i ;at 81,6;"Para 

continuar pulsa P" 

110 FOR n«0 TO 27 

111 IF INKEYe»"p" THEN CO TO 12 

S 118 IF n/8-INT (n/8) TMEN PRINT 

PT iü n 1 M jLk4 >* 

113 11^ ñ/2olNT in/2) TKEN PRIN 
T AT 19,n; " kHk " 

114 BEEP .2,16+n/2 

115 NEXT n 

116 FQR n-87 TO 0 STEP -1 

117 IF INKEY*b"p" TMEN GO TO 18 
5 

118 IF n/8»INT (n/8) TMEN PRINT 


© 


(n/2) TMEN PRIN 


AT 19, n;" ^ " 

119 IF n/3<>INT m 
T AT 19, n;" krik " 

180 BEEP .8,15-t-n/a 

181 NEXT n 
123 GO TO 110 

^|| CL5 ; PRINT AT 0,11;’ 


" Teclas de movimie 
I IZQUIERDA (9 OER 



DER 


PRINT ' 1 

nto:. E 

ECHA" 

130 PRINT '' 

IERDA RAPIDA' 

132 PRINT *"H+ 

ECHA RAPIDA" 

135 PRINT '" Para desocupar la 

camilla,o re-.coger camillero 

s,PULSA O con la "* T “cami i la den 
tro del Fospitai" 

138 PRINT FLASH 1,AT 18,8,” f * 
í BUENA SUERTE ^ J " 


1*0 I 

ifs I 


PRINT AT 81,7;" 


INF 1: 


PAUSE 0 

^150 BORDER S: PAPER 5: 

158 FOR n«0 TO IB: PRINT INK 4 ; 
«T n ,0, ; NEXT n 

_154 PRINT I NK 4, RT 19,0,* 


SGi 

T.5B FOR 



AT 83,1; i 
PRINT IN 


;AT 6,24;" 





PRINT INK 7; 
NEXT n 

¿AT 18,84;; I 

-- . 7; 


160 ' PRÍN I *,,rv ,, ni xa i«6 j ■ , x 
NK 2; PRPCR 7; M + ; IKK 7;AT 


INK 7;AT 19,24; "| 


164 PRINT INK 7;AT 



LET X =4: PRINT PAPER 2; 
7 ;AT 0,19,"CAMILLEROS: 4" 

176 PRINT PAPER 2;AT 1,19;" 


177 LET 

7 j AT 2 , ,bj jnuvnL'uu ¿ w 

178 PRINT PAPER 2;AT 3,19; 


y*0: PRINT PAPER 2; 
10;" SALUADOS: 0 


PRINT PAPER 2; 
MUERTOS: 0 " 


179 LET Z >0: 

7 ,AT 4,19;" 

200 LET a * = " 

202 LET b|*" 

204 LET ce» 11 
206 LET dí = " 

208 LET e $*" 

210 LET f*e" 

212 LET g $b" 

214 LET h 
216 LET 
218 LET 
220 LET a«25 
225 LET K«3; LET t«0 

249 IF x>0 THEN GO TO 600 

250 GO TO 251+INT (RND*3) 


INK 


INK 


INK 


V *“ 
hf«" 

i i»"#" 

J i«"Ü" 


251 LET 

252 LET 

253 LET 


GO TO 260 
GO TO 260 
GO TO 260 


260 GO Ti [NT (RND»7) 


261 LET 
80 

262 LET 
80 

263 LET 
60 

864 LET 
80 

265 LET C■.65 
880 

C * . 7 ; 



GO TO 2 

GO TO 8 
GO TO 2 
QO TO 2 
LET d■■85: GO TO 

LET d■.15: GO TO 


866 LET 
880 

867 LET C *•8: LET d-0 
280 LET m-RND*7: LET n«8 
290 PRINT RT INT m,INT n,fc| 

292 LET t«t+l: IF {>600 THEN GO 
TO 600 

894 IF t/8-INT ít/2) TMEN LET t 
Mil: BEEP .001,40 


h i 'jMMrrn 


B 


Un edificio próximo ai hospital 
se incendi a.5alen 3 camilleros a 
intentar salvar a los que se ti¬ 
ran por las ventanas. 

El juego acaba cuando ci fuego 
alcanza el ultimo píso.o cuando 
mueren ios cuatro camilleros de 
que dispones, 

Con la camilla cargada,o con un 
solo camillero no puedes recoger 
a los que caen.Tienes que ir al 
hospital para entregar ios salva 
dos,o para recoger otro camille¬ 
ro . 

JM 

Para continuar pulsa P 


















29B ir t/aoINT Ct/2» THEN let 
8EEP .001,36 

298 PRINT INK 2;RT 18,6;t|;AT 1 

l3^6,t$jRT 11,3; t g; AT 9,S;i|;AT 

Í00 Íf t >150 THEN PRINT INK 2, A 
T b,6¡ t *; AT S , 2, t* 

304. IF t>300 THEN PRINT INK £;R 
T 3,5;1$;AT 2,1; t * 

,308 IF 0500 THEN PRINT INK 2;fl 


AND a>8 THEN 
RND a >9 THEN 


T , 0 i 7 U*; ftT i**-; t* 

310 IF INKEY ga^'o" 

LET a*a-l 

311 IF INKEYIb-O 1 

LET a*a-a 

312 IF INKEY$ = "p " RND a <25 THEN 
LET á “1 ti 

313 IF INKEY|«"P" RND a<24 THEN 
LET dsd+2 

Ir 5 = 1 í F = a 4® B í NT ía/2) THEN PRINT 

T 3 QT la Í / SÍ¿Í NT (a/£) ™ EN PRIN 
Üffl TFTUT THCN LCT d-0 

J*i T^ÍEr^l^E^I^cV^ 

TO b Js 0 $: PR1NT RT 20,a-3;a*: 00 
385 IE ? N I n b20 ftN0 INT nsi + 1 T 

HEN LET fc=2: LET a Caes LET fogcr 

l¿^ R í N Lr ñ I, 20 '*- 3 ' a *' PRINT InÍ 

Go IJ ro É2S ER ¿; INK 7;RT *' 30;2: 

368 íE í N I ft=2 ® ñND int n-a-i t 

2 EN dd?mt K ^o i =; et S* =9 * : let b * Eh 

Irse ÍÍbt 2i a !:!:?i i, ¿. E ? R I I S,í NU 

So 1 ™ 249 eB *' INK ’- nT 

370 IF XNKEYgs" 1" RND k. = 1 RND a 
*25 THEN LET at*" A..A "* i_ET b 
*í" LET k«0™L£T'ysu+l b 

PR|NT PRPER 2, INK 7,AT 2,30;y 
37S IF iNKEYge"1" Rn6 k>2 An6 a 
*25 THEN LET ais" AtYÍI ": LET b 
• * - A 7 'c i LET K =0 : LET x*X -1 ■ 

PRINT PAPER 2; INK 7; RT 0,31;X 
390 IF INT n =¿0 THEN PRINT INUE 


L 


T ec,i.as d« movimiento; 

9 IZQUIERDA 9 DERECHA 

: IZQUIERDA RAPIDA 
a «MM : DERECHA RAPIDA 
Para desocupar la camilla,o re¬ 
coger cami i uros ,PULSA O con la 
c d m i t. La dentro dei hospi tá l 

* % * buena suerte # % * 



IOmOs 


25 


F 

1, 


RSE 1;RT 21,INT n;K* : PRINT AT 2 
0 > INT n , LET Z aZ +1 ■ PRINT PQ 

PER 2; INK 7,AT 4-730** í GO TO PR 

*0g PRINT AT INT IB , INT n j " " 

¿10 LET m=m+c: LET nsn+d 
500 00 TO 290 

„i*¡» PRINT HT INT ■ , INT n; " : 

8? NÉXT J° *' STEB - 5i ® 6EP • 
fPSSh 1 ? .&í 4, -* fl W Í¿ b5 ™ cn PRINT 

SW?SSV5H8 U W5> P 

í*álíTtíS.»“ p « rp « r "-''T'l6 s ii 

RT 1 ? fa 2 < aS ™ E N PRINT 

Has cea l izado"; RT 9,9;" 
una buena ops-";at 11,9; " ra c i or> 
í¡as";Af 13,9,-perdido vidSs 
¿?c Ji' 8 ' i nnecesari amen te" 

*15 IF Z>5 THEN PRINT AT 7,10;" 
5oio has sai-";AT 9,l0;"vadó "u 

á- RT d iT 11 í 9; "^ T * d * s cuent 

f< í'S T - 2: 3 , J ®i, d ÍL tw fesponsa-"; AT 

15,9, biLidad? 

61o IF y si THEN PRINT AT 9,21;" 
618 IF ya0 THEN PRINT AT 7,9;"N 

5ida" salVñd0 "¡R T 3,10;"ninguna 

§ '20 PRINT AT 17,10; "PARA JUGAR 
25 

"&§0 
632 

**i t 

634 

0 

636 
64 0 

íáji! 

8,i; t 

5, l$; 

tf 

b4S 
650 


0 


PRINT RT 19,8,-INSTRUCCIONE 
FOR n^0 TÜ 100 

I BEEp a ?íaI > 40 /aí ™ EN LET ‘ 
I BEEP t ?íei,3S / * > ™ EN LET ' 

IF INKEY |s"S" THEN GO TO 15 
IF INKEY$a"i" THEN GO TO 10 

£-AT T ii N í 1 
f ^ HT i6 > 4/ t % # RT 14,2; t t üt 

*< ñ J b,e,l$:At 5,2;t*:AT 3, 
hT 2,1; t $; RT l, 4 ;t*;A+ 0 , 7 ; 

NEXT n 
GO TO 530 





I 




































ZjjüaüuA®s úMoúrljO®s 



DDL) es el nombre de este programa, siglas que 
responden a Decodificador De Direcciones y gracias al 
cual se representa en pantalla un circuito lógico 
formado con cuatro puertas NOT y cuatro puertas 
AND que posee dos entradas/es decir, que simula un 
bus de dos vías y cuatro salidas. 

Desde el programa se coloca en el bus la entrada 00, 
01, 10 u 11, en función de lo cual se activará la salida ü, 
I, 2, 3* * * * Por los hilos se simula el movimiento de los hits 
y en las puertas AND aparecen los valores recibidos. 

Es realmente gracioso contemplar el movimiento de 
los bits por el circuito* Muy indicado para fines 
didácticos y especialmente para los amantes de la 
circuí te ría. 

Notas gráficas 

fiflCDEFGhIJKLMNOPORSTU 

9 i-iVM-* l —jklmnopqrstu 


Autor: Manuel García Chumil la 


I6K 


U3 REM #ttt 

«¿0 REM GRAFICOS 

30 REM «### 

40 FOR i-1 TO 9: READ 1»; FQR 
J«0 TO 7 

S0 RERD x: POKE U6R «*tj,x 
60 NEXT j: NEXT i 

70 DRTR “'i 1 ' ,0,0,26,36,42,50,2© 

* 0 

71 DRTR "b' , ,0 l 0 l 6,94,6,6,86,0 

72 DRTR M C M , 6,6,8 , 28,262,20 § 8, 

8 

73 DRTR “d",0,0,0,28,288,28.8, 

3 74 DRTR "«",6,88*48,73,801,6*6 
6 

75 DflTfi "f">5,®j8,88,88,28,8,8 
75 DRTR "«",0,a,0,28,355,26, 0, 

0 

77 DflTR "h",8,e,8,e,e,e,e,8 

75 DRTR "i".B.B.B.B.855,0,0.® 
30 RCM **** 

90 RCM Trazido d«L circuido 
100 REM «*»• 

110 PLOT 212,143: DRRU 0,-57: P 
LOT 212,107: DRRU -45,0: DRRU 0, 
-51: DRRU 0,51: DRRU -45,0: DRRU 
0,-30: 00 SUB 1000: DRRU 0,30: 
DRRU -48,0: DRRU 0,-30: GO SUB 1 
000 

130 PLOT 885,143: DRRU 0,-57: P 
LOT 885,91: DRRU -48,0: PRINT RT 
10,86;DRRU 0.-Í4: 80 SUB 1 
000: DRRU 0,14: DRRU -40,0: PRIN 
T RT 10,80;"4"; DRRU 0,-35: DRRU 
0,35: DRRU -48,0: PRINT RT 10,1 
4;"*": DRRU 0,-14: 00 SUS 1000 
130 POR i-1 T0 4: PLOT 48*1+18, 
56: DRRU 38,0: DRRU -16,-16,-PI/ 
2: DRRU 0,-8; DRRU 0,8: DRRU -16 
16,-P1/8: NEXT i 
140 PRINT RT 0,84;"ENTRADA";RT 
3,8, "DECQDIFICfiÓORVRT 5,8, "DE D 
IRECCI0NE5"; RT 81,15; ‘'SALIDAS" 
150 PRINT ai;RT 1,0;"Entf*dt i* 
quitrd*: Pui.it 0/1 

160 LET b-CÜDE INKEVt: IF b<48 
OR b >49 THEN 00 TO 160 


170 PRINT RT 8,86;CHRt b: FOR i 
s0 Tü 50: NEXT i; PRINT #1;AT 1, 


0 


í, 


180 PRINT 81;RT 1, 0 ;"En \C «d* dt 
ftCht: PULSt 0/1 

190 LET t-CODE INKEYÉ: IF *<48 

OR * >49 THEN 00 TO 190 __ 

200 PRINT RT 2,28;CHR* * PRINT 
81, RT 1,0 ¡," 

210 REM *#* 

220 REM MOV iifiitlUO 
830 REM *## _ __. _ 

340 FOR i-1 TO 10: PRINT RT 3 + i 
,ae,"* ,l ;RT 3 + 1 , 86 ;"*": pause 80: 
PRÍNT br 3 + i ,¿ 8 ; "|,RT 3 + i, 86 ;" 
l" 

242 IF i*5 THEN PRINT RT 6 , 86 ;" 

4" RT 8 23 *' L" 

8Í0 IF * i m*? THEN PRINT RT 10,26; 
"4";RT 10,28;"4" 

260 NEXT i M , __ 

870 LET p-28: LET X«*+96: LET y 
-b + 96: LET q»3: 00 SUB 1100 

300 FOR i-1 TO 5; PRINT RT 10,2 
S-i ; ;RT 8,26-i;"*": PAUSE 20: 
PRINT RT 10,88-i;RT 8,26-i; 

310 IF i-2 THEN PRINT RT 10,86; 

320 NEXT i 

330 PRINT RT 8 ,20 , "f";RT 10,28; 

^40 FOR i-1 TO 5: PRINT RT 8 + i, 
20 :"*": PAUSE 20: PRINT RT 8 +i,2 

0 : 1 I " 

350 IF i>2 THEN PRINT RT 10,20; 

52 IF i«3 THEN PRINT RT 11,28; 

11 

54 IF i-4 THEN PRINT RT li,28; 


5 


360 NEXT i _ , „ 

370 LET X *144: IF *»48 THEN LET 
x-145 _ 

380 LET P-22l LET y*b+96: LET q 
*2: 00 SUB 1100 „ „ _ _ 

390 FOR i-1 TO 5; PRINT RT 10,2 
8-i; "♦",RT 3,20-i, PAUSE 20. 

PRINT RT 10,28-li;RT 6,20-x, 

400 IF i-2 THEN PRINT RT 10,20; 


t 


10 NEXT i 

420 PRINT RT 6,14; j RT 10,16; 















































CHIKHÜH 
0 0 

üECGDIFICRDOR 
DE DIRECCIONES 
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3RLIDRS 





ENTRRDR 

DECODIFICRDOR 





<130 FOR i«l TO 3: PRINT RT 8 + i, 
14-;'■ ♦ " ; RT 10+1.16;"4": PRUSE S3: 

,.PRINT RT 8 + i ,1*;'■ |,RT 10 + 1,16; 

4-40 IF i >2 THEN PRINT RT 10,14; 

450 NEXT i 

460 LET y *144: IF b«46 THEN LET 

y = 145 

470 LET P «16: LET *«1: LET X>« + 
96: GO SUB 1100 

460 FOR i■1 TO 5: PRINT RT 10,1 
6 -1;"-";RT 8,14-1;PRUSE 20: 

PRINT RT 10,16-i RT 8,14-i; 

Isa IF i«a THEN PRINT RT 10,14; 

484 NEXT i 

490 FOR i«1 TO 8: PRINT RT 8 + i, 
8 ; " : PRUSE 80: PRINT RT 8 + i,8; 

"i": NEXT i 

500 PRINT RT 11,8;"i";RT 11,10; 

PRUSE 80: PRINT RT 11,8; M T' 
;RT 11,10; M |" 

510 LET X■144; IF *«48 THEN LET 

X *145 





ENTRRDR 

DECODIFICRDOR 
DE DIRECCIONES 



0 12 3 


SRLIDRS 


ENTRRDR 

DECODIFICRDOR 1 1 



A 

"1 



520 LET y*144: IF b«46 THEN LET 
y «145 

530 LET p «10: LET q«0: GO SUB 1 
100 

540 PRINT 81;RT 1,0;"HtCtnOl Ot 
ra p rutb* ? (s/n) r ' 

550 IF INKEY t«"" THEN GO TO 550 
560 IF INKEYI»"*" THEN GO SUB l 

i: GO ■“ 


•6,0: LET p 


200: GO TO 150 
570 CLS : STOP 
1000 DRRU 0,-1: DRRU 

1010 FOR j«l TO 5: DRRU p*<13-8# 
j),0: LET p «-P: DRRU P,-l: NEXT 

1020 DRRU 0,-8,PI: DRRU 0,-9: DR 

RETUf^N : DRRU DRfiU ®' 6: 

1100 PRINT RT 15,P;CHRt X;RT 16, 
P-2;CHR* y 

1110 IF X +y «290 THEN FLRSH 1 
1120 PRINT RT 19,p-l; FLRSH 0: 
RÉTURN 

1200 FOR 1*1 TO 4: PRINT RT 19,6 
*1+3," "i PRINT RT 15,6*1+2;" 

": NEXT i: PRINT RT 2,86;” ": 

RETURN 
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IMASW O QUE ESTARAS 
LEYENDO EL LISTADO DEI 
Mi m>6R AMA.... 






Con el nacimiento de Todospe- 
ctrum asistimos también al del intré¬ 
pido Gusanez. una mascota peculiar 
que pondrá la nota de humor en las 
difíciles, complicadas v a veces pesa¬ 
das operaciones con el Spectrum. 
Deje que nuestro Gusanez. el de 


todos, irrumpa en su monitor o tele¬ 
visor con este pequeño y sencillo 
programa. 

A Gusanez le van a ocurrir todo 
tipo de aventuras, unas inverosímiles, 
otras arriesgadas, pero será el humor 
la nota predominante de las acciones 


que protagonizará gusanez en esta 
última página de Todospectrum. 
Nuestra mascota está hecha para 
divertir, su creador es un joven ena¬ 
morado del Spectrum, al que ha 
hecho trabajar duramente para dar 
cuerpo a su obra. 


20 

25 

30 

36 

4.0 

4-5 

50 

55 

60 

65 

70 

71 

.6 

75 
30 
6 , n : 
85 
90 
95 
PLÜT 
n 

100 

PLOT 

n 

105 

110 

115 

120 

125 

130 

135 

140 


18 It8í S4?4: c m s S?4g,- i 

28 DRRU 20,2, -.4. 


u'nnw > c. , - ■ • 

DRRU 60,0, .3 
DRRU 0,70,-2 
DRRU 30,0,-1 
DRRU 5,-6,-1 
DRRU 75,-3,-1 
DRRU 10,-20,-1 
DRRU -10,-20.-1 
DRRU -70,3,-1 


unnw f v ^ w j ¿ 

DRRU -20,-60, 
DRRU -2,-21,- 
PLOT 126,23: 


DRRU 


• 11 , - 22 , - 

CIRCLE 135,14.6,3 

FÜR n *1 TO 3: CIRCLE 139,14 

NEXT n 

PLOT 125,154: DRRU 15,5,-1 
PLOT 125,153: DRRU 15,5,-1 
FOR n =2.2 TO -.5 STEP -.1: 
110,87: DRRU 3,75,-n: NEXT 

FOR nxl.5 TO -.3 STEP -.1: 
113,160: DRRU 27,3,-n: NEXT 


PLOT 

PLOT 

DRRU 

DRRU 

PLOT 

PLOT 

DRRU 


148,80: DRRU 
100,68: DRRU 
-5,Í0,-1 
5,Ó,-2 
189,48 
191,50: DRRU 6,6, 
5,-5,-2 


8 , 20,-1 

90,-20,2 


DRRU 7,2, 


unnw wa—wj-& 

PLOT 203,53: DRRU 0,-5,-2 


145 PLOT 205,49: DRRU 0,-5,-2 
150 PLOT 207,45: DRRU -15,-10,- 

1 

155 DRRU -95,21,-2 





más* 


SON tyPEC&CKiLAtJZS ESTOS; 
GRAFICOS EN 

TRES piKEA/StOWeS 

























































La versión española de Popular Computing 


ORDENADOR 

- POPULAR 


LA REVISTA QUE INTERESA TANTO AL AFICIONADO COMO AL PROFESIONAL 



200.0e<**°" 
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InUrtew® 






vlito 


sol 




COtA^ 


Una publicación que 
informa con amenidad 
acerca de las novedades 
en el campo de las 
computadoras personales 

ORDENADOR POPULAR, 
la revista para el 
aficionado a la 
informática. 

Ya está a la venta 


Cómprela en su kiosco habitual o solicítela a: 









ORDENADOR 

- POPULAR. 


Bravo Murillo, 377 
Te/. 7339662 
28020 -MADRID 
































16 K 




GARANTIZAMOS 

EL CRECIMIENTO 



Si tienes un SINCLAIR ZX SPECTRUM de 16 K y deseas ampliarlo a 48 K ahora puedes 

hacerlo con toda garantía. 

Acude a tu Concesionario Autorizado INVESTRONICA y en breve espacio de tiempo 
dispondrás de tu Spectrum con MAS POTENCIA 
Además INVESTRONICA ampliará por tres meses la garantía de tu equipo, 
independientemente de la fecha de adquisición y te obsequiará con una 
Cinta de Demostración de 48 K. 






IMPORTANTE: 

Al adquirir los productos SINCLAIR exija la 
TARJETA DE GARANTIA INVESTRONICA. única 
válida en todo el territorio nacional y llave para 
cualquier resolución de duda o reparación. 
INVESTRONICA no prestará ningún servicio 
técnico a todos aquellos aparatos que carezcan 
de la correspondiente garantía 
DE VENTA EN CONCESIONARIOS 
AUTORIZADOS. 


Amplía, 

ahora, tu SPECTRUM 
de 16 K a 48 K. 


2 ' gg M M M M M M 

«rñi r* MMr nrtM .«.*'.«« MOVT r*A\# POl*T CAI FOW*Ai 

ivVb 'AS SI «S'> V*t t'MII § COOT PffK TAI 
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Con garantía... 
Con más garantía. 


S ^í F >cm G OOVO ^06 J LOAD K UST L l«T 

v I cincir «ul jcniiNt MI» ^ ^ 

m ü ■ ■ ím 


x c - v j ■ 




y 

i 













